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INTRODUCCION 


Con este libro y con el ZX Spectrum se halla usted preparado 
para una gran aventura o para muchas de ellas. El Spectrum, a pesar 
de su pequeño tamaño, es un ordenador de gran potencia, y este 
libro contiene una colección de programas para mostrarle lo grande 
que es y qué flexibilidad posee. 

Hemos logrado una amplia colección de juegos, desde el «Oro del 
dragón» (aventura de otros tiempos) a «Entre las estrellas» (ex- 
ploración del futuro); desde “Breakout” a “Música”; desde “Zombis” 
a “Jackpot”. Todos los programas contienen ideas que pueden adap- 
tarse y servir para mejorar los suyos propios. 

Pero el libro no son sólo juegos, ya que creemos que no pensará 
pásarse toda su vida jugando. Los juegos constituyen una gran diver- 
sión y son una de las cosas que han hecho a los ordenadores tan 
populares, pero muchos de tales juegos no llegan siquiera a hacer 
imaginar el enorme potencial del ordenador. Para mostrar la compleja 
máquina de cálculo que posee se han incluido unos programas 
que le ayuden en el trabajo de cada día. Los programas domésticos 
Jjustificarán por sí mismos la compra de su Spectrum. Si desea hacer 
gráficos o resolver ecuaciones hay programas que le interesarán. 
Conversión métrica, clasificación alfabética y numérica, entrena- 
miento con Morse, la numeración en BASIC, todo se halla aquí en 
la forma adecuada. Y si desea controlar su cuenta bancaria, le hemos 
preparado un programa que lo hará por usted. 

Ya es el momento de conectar su Spectrum y entrar en materia. 

Deseamos agradecer ideas originales y programas a las siguientes 
personas: 

Roger Macintyre, D. C. Owen, Martin Frobisher, Paul Toland, 
Stuart Roberts, Tim Rogers, l. S. Howson, Andrew Lovering, R. 
Stubbs, John Knight, Said Hassan, Jeremy Ruston, Paul Stevens, 
y. Elliot, M. Charlton, K. Mahogany, Daniel King y Tim Hartnell. 

Feliz programación. 
David Harwood. 


ENTRE LAS ESTRELLAS 


Tiene bajo su responsabilidad la seguridad de un cubo del espacio 
que mide 10 x 10 x 10. La Federación Terráquea, no ahorrando 
gastos en la defensa de la Tierra le ha provisto de una nave espacial 
equipada con el Spectrum como el ordenador de a bordo. Ahora a 
usted le toca guardar las rutas del espacio. 

Cuando ejecute el programa observará que su posición en el 
cubo viene dada por tres coordenadas bajo la línea: “La nave se 
encuentra en las coordenadas:”. 

La primera de las coordenadas corresponde a la dirección Norte/ 
Sur (con números inferiores en el Sur), la segunda es la posición 
transversal, Este/Oeste, y la tercera le señala la profundidad en el 
cubo (delante y atrás). Apreciará la utilidad de poder ver en las 
tres dimensiones. 

La nave alienígena se mueve muy lentamente en el cubo pero 
aunque usted sabe, en todo momento, su dirección con respecto 
a usted, desconoce la distancia a que se halla. Hay que dispararle 
tantas veces como pueda antes-de que el contador llegue a cero y 
hay que evitar la colisión con la nave enemiga. Quedarse sin energía 
también termina el juego. Sabrá cuando se encuentra suficientemen- 
te cerca para disparar si el ordenador le informa que el enemigo está 
haciendo fuego. Cada impacto reduce drásticamente su provisión 
de energía. 

El juego es fácil de aplicar, basta con pulsar la tecla que se re- 
fiere a la dirección en que desee moverse: “N”, “S”, “E” o “W” 
para ir al Norte, Sur, Este u Oeste respectivamente; “A” para avan- 
zar, “R” para retroceder y “L'” para disparar su rayo láser a la nave 
alienígena. Si, por ejemplo, supiera que está al norte, basta con man- 
tener pulsada la tecla “N” hasta situarse en la misma dirección 
Norte/Sur del enemigo, probando a continuación por la proximidad 
para el disparo. 

Observará que el programa le enseña a jugar. Basta que tenga 
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en cuenta que se ha de poner lo más cerca posible de la nave alie- 
nígena para disparar, y que lo que se pretende es que consiga la 
puntuación más alta que pueda antes de que se termine el juego. 


10 REM ENTRE LAS ESTRELLAS 

20 REM POR ROGER MACINTYRE 

25 BORDER RND*7: PAPER 7: CLS 

30 GO SUB 1070 

40 GO SUB $800 

50 IF L<0 THEN GO TO 500 

80 PRINT AT 17,0; INK RNDx*4;"P 
ONGA SU RUMBO" 

90 PRINT AT 18,2; INK RNDx*ú4; F 
LASH 1;"N,S,E,O,(L)ASER,"“"<AJVA 
NZAR, ¿R)ETROCEDER" 

100 LET L=L-.25 

120 1F INKEY$="" THEN GO TO 12 
0 

125 BEEP .1,RND*20 

130 IF INKEY$="L" THEN GO SUB 


320 

190 LET X=X+C(INKEY$="S" >-C( INKEY 
$="N") 

150 LET Y=Y+CINKEYS$="E" )-C(INKEY 
$="0"> 

10 LET 2=2-CINKEY$="A">3+(1INKEY 
$="R">) 


195 PRINT AT 5,0;T$;T% 

200 GO SUB 420 
210 IF RND>.S THEN GO TO 40 
240 LET A=A+INT (<(RND*3)-¿RND*Z 
,) 
250 IF A<1 THEN LET A=l: IF A> 
10 THEN LET A=10 
260 LET B=B+INT (<RNDx*3)-C<RNDXS 
2) 
265 IF B<1 THEN LET B=1: IF B> 
10 THEN LET B=10 
270 IF RND>.S THEN GO TO 40 
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280 LET C=C+INT (<RND*3)-C(RND*3 
2) 

2790 1F 0<1 THEN LET C=1: IF C> 
10 THEN LET C=10 

310 GO TO 40 

320 REM x** DISPARO DEL LASER x*x* 

330 LET L=L-.75 

480 LET T=T+1 

482 PAUSE 100 

485 PRINT AT 1,0;T8 

470 RETURN 

500 CLS : BORDER RND*6: PRINT “ 
TAB 3; INK RNDx*ó6; FLASH 1;"M TER 
MINACION" * 

530 IF Ti<=0 THEN PRINT  INK R 
NDx*6; "HEMOS ESTADO EN EL ESPACIO 
" "DEMASIADO TIEMPO" ” 

540 IF L>0 THEN PRINT  INK RND 
*6;"W NOS HAN. DERROTADO" * 

555 PRINT AT 10,0; INK RNDx6;"E 
NERGIA REMANENTE=";L3" ERGIOS 


560 IF L<=0 THEN PRINT  INK RN 
Dx*ó; FLASH 1; "INCELULAS DE ENE 
RGIA VACIAR” 

370 STOP 

580 CLS : PRINT * INK RNDx*6;"HE 
MOS CHOCADO CON LA";¡TAB 8;"NAVE 
EXTRATERRESTRE" 

$10 STOP 

éáz2O0 REM xx DISPARO DE LOS MARCIA 
NOS x*Xx% ; 

é30 IF ABS (A-X3>3 OUR ABS (B-Y> 
33 OR ABS (C-22>3 THEN RETURN 

650 IF RND>.75 THEN RETURN 
660 BEEP .3,RND*20: PRINT AT 1, 
03 INK RNDx*á; FLASH 1 RL OS M 
ARCIANOS NOS ATACAN" 

é70 PAUSE 100 
é?0 PRINT AT 1,073 

200 IF RND>.? THEN GO TO 770 
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710 BEEP .3,RNDx*20: PRINT AT 1, 
0; INK RNDx*%; FLASH 1;"M NOS HAN 
ALCANZADO NM" 

720 LET LeL=2 

730 IF L<=0 THEN GO TO 500 

790 PAUSE 100 

755 PRINT AT 1,0;T8 

760 RETURN 

770 BEEP .3,RND*20: PRINT AT 1, 
0; INK RNDx*4; FLASH 1;"BBHA FALL 
ADO EL FUEGO ENEMIGOR Y" 

780 PAUSE 100 

792 PRINT AT 1,0378 

773 RETURN ; 

300 REM ** PRESENTACION x*x 

e810 BORDER RNDx*úS 

850 PRINT AT 10,0;"ENERGIA REMA 
NENTE=";L3" ERGIOS p 

870 LET TieT1-14 1F Tis=0 THEN 
GO TO 500 

890 PRINT AT 18,20;"TIEMPO: ";¿T 
3% " 

OO... TF LS THEN: PRINT AT 12,1 
y FLASH 1;""dB BAJO NIVEL DE ENE 
RGIA MM" 

920 PRINT AT 20,19;"PUNTUACION: 
".T 

, 

930 PRINT AT 14,0;"M LA NAVE SE 
ENCUENTRA EN LAS "*"COORDENADAS 
9353 PRINT TAB 45X5" "3Y3" "32 
940 IF A=X AND B=Y AND C=Z THEN 

GO TO 580 

960 PRINT AT 5,03" ¡AT 5,0;"%% 
ge ¡AT 07" " 

965 PRINT AT 5,0;"NAVE ENEMIGA 
ESTÁ" 

970 IF AX>X OR B<>Y THEN  PRINT 

"AL "a 

980 IF AXX AND E=Y THEN PRINT 
"NORTE"; 


$85 IF A%“X AND B<>Y THEN  PRINT 

"NOR "u : 

270 IF A>X THEN  PRINT "SUR"; 
1000 IF B>Y THEN PRINT "ESTE"; 
1010 IF B<Y THEN PRINT "OESTE"; 
1020 IF C=2 THEN PRINT " DE NOS 
OTROS" 

1030 IF C>2 THEN PRINT " DETRAS 

NUESTRO" 

1040 IF C<2 THEN PRINT " EN FRE 
NTE NUESTRO" 
1040 RETURN 
1070 REM **. INICIACION DE 

*x VARIABLES 
100 LET L=25+INT (RNID*30>2: LET 
T=0: LET Ti=35 
1140 LET A=INT (RND*10>+1: LET B 
=INT (RND*10>+1 
1150 LET C=INT (RNDx*10>+1: LET X 
=INT (RNDx*10>+1 
1160 LET Y=INT (RND*10>+1: LET Z 
=INT (RND*10)3+1 
1180 LET T$*$=" 
1210 RETURN 
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FASTERMIND 


Es una versión del juego *“Mastermind”” (registrado por Invicta) 
que utiliza las letras “A”, “B”, “C”, “D”, “E” y “F”, Se escogen 
cuatro letras (que pueden estar repetidas) y hay que tratar de adivinar 
el código en el menor número posible de intentos. Como se verá al 
ejecutar el programa, una letra correcta en posición equivocada se 
señala por el signo “+”, mientras que cuando se acierta posición 
y carácter lo indica un asterisco (*'*”"). 

Las hipótesis no válidas son rechazadas. “Fastermind” fue es- 
crito por D.C. Owen. 


30 REM FASTERMIND 
90 REM POR DC OWEN 
5 BORDER RND*F¿ INK PNDes: CL 


100 LET L=0: DiM Acg: DIM Exd; 
130 FOR Z2=i1 TO 4 

190 LET ExZ2=INT <END*S5+1 

150 NEXT Z 

140 POKE 236792,-1 

170 PRINT AT 21,0; "FASTERMIND € 
E CD EFI 2 Ds OWNER: dto 


335 PRINT 7? "PONGA SU RIFPOTESIS 
NUM. *5L 

199 INPUT LINE Ar 

193 LET O K=07 LET -J=0 


235 LET BZ =ABS 
290 ¡FF ALZ2I3<>BXZ3 THEN. 0 TO 
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¿50 LET K=kK+11: LET AZi=01 LET 
Brli=-B1 25 

230 LET MR=azriZ TO > 

270 MHMEXT OZ 

300 FOR H=i TO 9: FOR ¿=1 TO 4 
310 IF ALH3<oB2Z THEN 60 TO 3 
Et 

330 LET JI=I+i: LET BrZo=-BLZS 
350 60 TO 370 

3éb0 NEXT 2 

320 HMEXT OH 


400 PRINT TAB 10; INVERSE 1;"EU 
ALUACION *; 

410 1F K=0 THEN 60 TO 450 

420 FOR 2=1 TO Kk 

430 BEER. O BACO PRIMT  FLAS 
H 11 INK RND*é;"*"; FLASH 0% "; 


450 1F J=0 THEN 60 TO 490 
460 FOR 2=1 TO J 
470 BEEP .2,PND*20: PRINT  FLAS 


H 15 INK RND*S,"+"3 FLASH 03" "; 
480 NEXT 2 

430 1F K<9 THEM 60 TO 180 

500 PRINT O“ PAPER RND*s; INK > 


And a ONE ONSTG 
yt 


PONGA Su ME NUM. 2 
DCGEPF e $» 

SDPFA + + 

PONGA SY HIPOT S NUM. 4 
ABASB 


PONGA SU pci NUM. 5 
AReE EU ip 


PONGA SU HIPOTESIS NUM. 5 
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EL TRAILER 


Se basa en el juego comercializado de salón “Snake” por el que 
uno se mueve por la pantalla sin chocar con las barreras de su pista. 
En “Trailer”” el jugador tiene tres vidas, y la puntuación y los hom- 
bres que quedan se presentan en la línea superior. Al ejecutar el 
programa se pide que se seleccione la velocidad entre 0 y 10, donde 
cero es la más rápida y diez la más lenta. La dirección se controla 
mediante las teclas “5”, “6”, “7” y “8”. 


1 REM TRAILER POR OD HARWOCD 
4 REM **DEFINICION DE CARACTE 
RES/Y“EJECUTENSE LAS LINEAS 5 - ? 
ANTES DE ESCRIBIR EL RESTO DEL 
PROGRAMA . 
S FOR T=1 TO 7: READ N 
6 POKE USR "K"+*T,N: NEXT T 
7 DATA 40,126,219,2179,255,2959 
¿102,0 
S REM PARA LOGRAR HÑ PLILSA LA 
*K”* EN MODO GRAFICO. 
9 LET P+="0 0D" 
10 LET S=0:' LET C=3 
11 BORDER 7: PAPER 7: INK 0: € 
LS 
12 REM INSTRUCCIONES 
15 PRINT TAB 83 INK 13"T "3: P 
AUSE 10: PRINT — INK 2¡"R ";: PAU 
SE 10: PRINT. INK 3;"4 ";: PAUSE 
10 
20 PRINT  INK 49;"I "3: PAUSE 1 
D: PRINT.— INK 1;3"L ";: PAUSE 10: 
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PRINT  INK 2;"E ";: PAUSE 10: P 
RINTO INK 3;"R" 
30 PRINT ““"ESTE ES UN JUEGO D 
E HABILIDAD." 
40 PRINT "DEBE MOVER SU HOMBRE 
POR LA" 
50 PRINT "PANTALLA SIN CHOCAR 
CON LA" 
$0 PRINT "BARRERA. DISPONE DE 
TRES VIDAS." 
$5 INPUT "VELOCIDAD (0-10):0 R 
APIDO 10 L 
ENTO ";sP 
70 PRINT ““ INK 2; FLASH 1;4T 
10,10;"BUENA SUERTE!" 
80 PAUSE 300: CLS 
395 PLOT 248,148: DRAW -241,0: 
DRAW 0,-161: DRAW 241,0: DRAW 0, 


90 LET A=11: LET B=16: LET As$= 
STR$ (INT (RND*4)+5) 

95 PRINT AT 0,20;FP$ 

100 PRINT AT A,B;"w" 

105 FOR Z=1 TO SPx*2: NEXT 2 

110 IF INKEY$<>"" THEN LET As$= 
INKEYS 

115 PRINT AT A,B;"x*" 

120 LET A=A+(As="45")-(At="7") 

130 LET B=B+(A$="8")-(A$="5") 

140 IF A=21 OR A=0 THEN LET A= 
ABS (A-20) 

150 IF B=31 OR B=0 THEN LET B= 
ABS (B-30) 

180 BEEP .01,RND*20 

170 LET S=S+1: PRINT AT 0,0;"PU 
NTUACION: "3S 

180 IF SCREENS (A,B>="x*" THEN 
GO TO 200 

170 60 TO 100 

200 CLS : PRINT PAPER 1; INK 7 
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210 LET C=C-1 


220 IF C=0 THEN GO TO 270 

230 LET P$="": FOR I=1 TO C: LE 
T P$=P$+"M ": NEXT 1 

290 PRINT “*“*"SOLO QUEDAN ";C;" 
HOMBRES" 

250 PRINT “*“*"PREPARESE" 

260 60 TO 80 

270 PRINT AT 13,8; FLASH 1;" JUE 
60 TERMINADO" 


EL CORSARIO 


Este programa es más difícil de jugar que lo que pudiera pensarse 
al principio. En “El Corsario” tiene que tratar de destruir un barco 
de guerra bombardeándolo desde su avión. Para hacerlo más difícil, 
la velocidad de vuelo es doble que la del barco y, de vez en cuando, 
ráfagas de aire aumentan aún más aquella velocidad. 

Dispone de. veinte bombas en esta versión del juego pero puede 
cambiarse fácilmente alterando el valor asignado a M en la línea 110. 
Se dispara pulsando la **F””, y aunque no se ve caer nada del avión si 
se consigue un impacto el barco queda destruido y milagrosamente 
se rehace para continuar su incansable travesía de izquierda a dere- 
cha. Existe un tiempo límite de 300 segundos que va decreciendo 
a lo largo del juego. Este se termina cuando se agotan las bombas o 
el tiempo. La puntuación máxima es de 5340 pero es prácticamente 
imposible alcanzarla en el tiempo disponible. 

El programa demuestra las excelentes posibilidades gráficas del 
Spectrum, produciendo realmente un avión y un barco de guerra. 
“El Corsario” fue escrito por Martin Frobisher. 


1 REM EL_CORSARICO 
2 REM POR MARTIN FROBISHER 


10 REM EJECUTE ESTA RUTINA 
ANTES DE INTRODUCIR EL RESTO DEL 
SROGEAMA 

20 FOR A=1 TO £S: READ Ar 

20 FOR T=0 TO 7: READ E 

40 POKE USE A%+T,B 

SO NEXT Ti: NEXT A 

60 DATA *4",1235,195,227.295.25 
TO ES 
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é5 DATA *5",0,128,1?2,2339,259%, 
192,128,0 
ZO: DATO “DI 2 LO 2 127 
163,31 
75 DATA *F*,31,157,159,139,255 
,255,255,255 
80 DATA "G",248,249,249,249,25 
po PE a Pe TM 
85 DATA "H",4,232,240,224,255, 
254,252,248 
20 DATA:0*J",0,0,0,1,1,7,7,7 
95 DATA "K",0,0,0,128,128,224, 
224,224 
100 BORDER RNDx*4: PAPER RNDx*S5+1 
s INK 9: CLS 
105 PLOT 0,39: DRAW 255,0 
110 LET M=20: LET T=300: LET S= 
O: LET A=1 
120 LET B=INT (RND*15>+1 
130 LET A=4+2: LET B=B+1 
140 IF RND>.7 THEN LET A=4+1 
150 IF A>26 THEN PRINT AT 5,A- 


3," ": LET A=3 
160 IF B>26 THEN PRINT AT 15,8 
13" "AT 16,B-13" ": LET 
B=1 


165 REM PARÁ LOGRAR EL AVION 
PULSESE LA “A” Y LA *S” EN MODO 


GRAFICO. 


170 PRINT AT 5,4-3;" M-=" 

180 LET T=T-1: PRINT AT 0,0; PA 
PER 2;"TIEMPO="3T¿"  " 

185 REM PARA LOGRAR LA PARTE SU 
PERIOR DEL BARCO DE GUERRA PULSE 
“3 Y “K” EN MODO GRAFICO; PARA 
LA PARTE INFERIOR “D”,“F”","G”,“H 
“ EN EL MISMO MODO. 

190 PRINT AT 15.B-13 INK 03% 3 
K"¡AT 16,B-1; 


200 IF INKEY$="F" THEN GO TO 2 
10 

205 LET T=T-1y IF M=0 OR T<1 TH 
EN STOP 

207 GO TO 130 

210 LET M=M-1: PRINT AT 0,12; P 
APER 2;"MISILES="¿M3" * 

220 IF ABS (A-B>)>2 THEN GO TO 
170 

230 IF M=0 OR T<1 THEN STOP 
240 FOR Q=1 TO 7 

250 BORDER RNDx*: BEEP .02,-0Q: 
BEEP .02,0 

260 PRINT AT 15,B-1; INK 05 "MN 
W ¡AT 16,B- MOTE ¡AT 15,B-1; 
INK 7; "MIME" 3 AT 16,B-1; po” 
270 NEXT Q 

280 LET 3=S+267 

290 PRINT AT 1,6; PAPER 2;"PUNT 
UACION="S¿" " 

300 IF INKEY$<>"" THEN GO TO 2 
65 

310 GO TO 170 


TIDAROS 278 MISILES=19 
UNTUACION=267 


bae 
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EL PROTECTOR 


En este programa se recibe la misión de proteger una parte 
defectuosa del campo de fuerza verde que guarda la Tierra. Ciertos 
alienígenos también han detectado el punto débil de nuestras defen- 
sas y tratan de penetrar por él. 

El campo de fuerza puede soportar un ataque en cualquier parte 
excepto en la debilitada. Una sección débil que recibe un segundo 
impacto origina el colapso del campo y deja la Tierra indefensa. 
El campo también se colapsa bajo los esfuerzos derivados de tener 
más de nueve puntos débiles en toda su extensión. 

La misión que se recibe es impedir los ataques para lo que se 
vale de su propia nave espacial. Se puede reforzar cualquier parte 
debilitada del campo de fuerza si se halla directamente debajo de la 
nave pulsando la tecla *'F”. Con las *5” y “8” se controla el movi- 
miento según la dirección de las flechas que hay en estas teclas. 

Existen cinco niveles de habilidad, siendo el uno el más sencillo. 
Puesto que los primeros cinco niveles tienen realmente la finalidad 
de permitir la adquisición de la práctica requerida, las puntuaciones 
concedidas van siendo más altas a medida que los niveles se hacen 
más difíciles. 

El fracaso, hay que decirlo, resulta inevitable, ya que los invasores 
aceleran continuamente sus ataques si el precedente ha fallado. La 
puntuación alcanzada se presenta al final del juego. “El Protector” 
fue escrito por Paul Toland. 


1 FOR A=1 TO 4: READ As 
2 FOR T=0 TO 7: READ B 
3 POKE USR A$+T,B 

4 NEXT T: NEXT A 
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5 DATA *A*,255,0,255,0,259,0, 
255,0 

S DATA. *5*.0,0,0,0,259,0,295, 
0 

7 DATA "D",0,0,0,0,60,640,60,6 
0 

3 DATA *F",255,255,195,195,19 
2. 175,195,195 

? REM PARÁ OBTENER = PULSAR L 
A TECLA “A” EN MODO GRAFICO. 

10 CLS : LET Dé=" 

20 PRINT AT 19,3; INK 4;"=";¡TA 
B 27"=" 

30 PRINT AT 0,10; PAPER 2; INK 

9; FLASH 1;"PROTECTOR" 

40 PRINT AT 20,2; INK RNDx*6; F 
LASH 1;" PONER NIVEL HABILIDADC1 
rr 

50 IF INKEY$="" OR INKEYS$<"0" 
OR INKEY$>"5" THEN GO TO 50 

$0 LET S=VAL INKEY$*2-1 

70 LET B=16: LET U=1: LET W=0 

80 FOR I=1 TO 20 

90 LET A=INT (¿RND*23)>+4 

100 FOR H=S TO 19% STEP Y 

105 REM PARA OBTENER » PULSE LA 

“D” EN MODO GRAFICO. 

110 PRINT AT 20,1; INK 4;D$;AT 
H,Aj INK RND*4;"e"¡AT 19,B," " 

120 LET B=B+(INKEY$="8">-( INKEY 
$="5"> 

130 LET B=B+2B=3)>-(B=27) 

135 REM PARA OBTENER SJ PULSE LA 

“F”* EN MODO GRAFICO. 

140 PRINT AT 19,86;"17" 

150 IF INKEY$<>"F" OR D$(B>="=" 
THEN 60 TO 170 

160 LET W=W-1: LET D$(B)>="=": B 
EEP .01,RND*20+10 
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170 PRINT AT H,Aj" ” 

180 NEXT H 

190 IF B=A THEN GO TO 220 

175 REM FARA OBTENER = PULSE LA 

”S” EN MODO GRAFICO. 

200 1F D$CA)="=" OR W=? THEN 6 
G TO 230 

210 LET W=J+1: LET Dé(A)="=": B 
EEP .0102,RND*20 

220 MEXT 1 

220 LET U=4x*2: GO TO 80 

290 PRINT AT 5,1; INK RNDx*6;"HA 
FALLADO ";: BEEP 1 ,PND*20 

250 PRINT  INK RND*6;"-EL CAMPO 
DE FUERZA HA SIDO ROTO TRAS CON 
SEGUIR ";s: BEEP 2,RND*20: PR 
INT INK RND*6;((U-1)*20+1)*S;" 
PUNTOS" 

260 PRINT  INK RNDx*ó4; FLASH 1" 
DESEA PROTEGER OTRO PLANETA?" 

270 IF INKEY$="" THEN GO TO 27 
0 

280 IF INKEY$<>"N" THEN RUN 
290 STOP 


EL CAZADOR DE LETRAS 


Permita que la bola ruede por la pantalla sobre las letras que se 
ven en orden alfabético. Hay que poner el valor de la velocidad del 
juego (''1” para rápido y “2” para lento) y después utilícense las 
teclas de control del cursor (del “5” al “8'”) para el movimiento. 
El juego termina si se alcanza una letra que no responda a la se- 
cuencia, indicando la que debería venir a continuación. Este juego es 
muy atractivo y probablemente se verá absorto en él tratando de com- 
pletarlo con éxito. El programa “El Cazador de Letras” (LETTER 
CHASER) fue escrito por Paul Toland. 


FOR_T=0_ TO 7: READ Z 
POKE USR "A"+T,2: NEXT T 


DATA 0,60,126,126,126,126,6 


LET X=1: LET Y=1: LET A=1 
LET D=0: LET NC=65 

LET P=RNDx7: PAPER P: BORDE 
INK 9: CLS 

INPUT — FLASH 1;"PONGA LA VE 


LOCIDAD (1-RAPIDO 2-LENTO> "; 


Ss 
50 
ADOR 
$0 
70 
"E" 
80 
90 
ADOR 


PRINT FLASH 1; "INCA z 
DE LETRA SI 

FOR T=1 TO 20 

PRINT— FLASH 1;"M";¡AT 71,31; 


NEXT T 
PRINT— FLASH 1; "MICA 2 
DE LETRA SI” 
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110 FOR 1=45 TO 90 

120 LET RX=INT (RND*30>+1: LET 
RY=INT (RND*193+2 

130 PRINT AT RY,RX;CHR$ 1 

140 NEXT 1 

150 LET I$=INKEYS 

150 LET A=C(1$="8">)-(1$="5")+(1$ 
=" " JA 

170 LET D=C(I$="6">-(1$="7")+(1$ 
=" ”" 3D 

180 PRINT AT Y,xz" " 

190 LET X=xX+A: LET Y=Y+D 

195 LET X=X+(X=0)-(X=31): LET Y 
=Y+(Y=0)-(Y=21) 

200 LET N=CODE SCREEN$ (Y,X) 

205 REM PARA OBTENER e PULSAR * 
A” EN MODO GRÁFICO. 

210 PRINT AT Y,X,"0" 

220 PAUSE 3x5 

230 IF N=32 THEN GO TO 150 

290 IF N<a3NC THEN GO TO 320 

250 LET NC=NC+1: BEEP .1,NC-65 

260 IF NC<91 THEN GO TO 150 

270 FOR I=1 TO 8 

220 BEEP .1,1: BEEP .1,8-1 

270 NEXT 1 

300 PRINT AT 10,103 FLASH 1;"LO 

CONSIGUIO" 

310 60 TO 330 

320 PRINT AT 10,10; FLASH 1;CHR 
$ (NC) :"-MALA SUERTE" 

330 INPUT FLASH 1;"PRUEBA OTRA 

VEZ?"¡A$ 

390 IF A$<>"N" THEN RUN 

350 PAPER ?: BORDER ? 


EL ORO DEL DRAGON 


El objeto de este juego es conseguir todo el oro posible mientras 
se recorre un complejo laberinto de túneles, cuevas y puertas tratan- 
do de evitar el dragón y los pozos de mina. Con la tecla “A” se 
mueve hacia adelante, con la “L'” a la izquierda y con la “R” 
hacia la derecha. Dejando un espacio antes de aplicar el comando 
ENTER hará que se detenga el juego. Si cae en las garras del dragón 
o en un pozo de mina, el ordenador tocará una pequeña tonada 
en su honor antes de acabar el juego. “El Oro del Dragón” fue 
escrito por D. C. Owen. 


1 REM EL ORO DEL DRAGON 

2 REM POR D C ObJEN 

3 RÁANDOMIZE : LET 6G=0 

O BORDER RND*S6: INK RND*S:¿ CL 


15 POKE 23692,-1 
20 PRINT FLASH 1;""AT 21,8;"E 
L ORG DEL DRAGON"; AT 21,8; OVER 
30 PRINT ““"USTED TIENE:-""G;" 
LINGOTES DE ORO" 
40 PRINT “"DELANTE DE USTED HA 
Y UN/A";: GO SUB 1000 
0 LET Bs=A$ 
70 PRINT “"A LA IZQUIERDA HAY 
UN/A";: GO SUB 1000 
80 LET L$=A8 
85 PRINT “"Y A LA DERECHA HAY 
UN/A";: GO SUB 1000 
86 LET R$=A$ 
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90 PRINT *”* FLASH 1;"EN QUE DI 
RECCION QUIERE IR?" 
100 PRINT ** FLASH 1;"A-ADELANT 
E" *“"L-IZ2QUIERDA" ”* "R-DERECHA" 
110 INPUT Ks$ 
120 IF Ké="A" AND Bs$="P".OR K+$t= 
"R* AND R$="P" THEN GO SUB 2000 
130 IF Ké="A" AND 6Es$="T" OR K$= 
"L" AND L$="T" OR K$="R" AND R$= 
"1" THEN GO SUB 3000 
1390 IF K$="A" AND BE*="C" OR K$= 
"L" AND Lé$="C" OR K$="R" AND R$= 
"C" THEN GO SUB 4000 
150 IF NOT (K$="L" OR K$="R" OR 
K$="A"> THEN GO TO 110 
150 GO TO 15 
$999 BORDER -7: PAPER 7 
1000 RESTORE 
1010 FOR T=1 TO INT <(RND*3)>+1 
1020 READ As 
1030 NEXT T 
1040 PRINT.— INK RND*6;A$: LET As 
=A4$(2) 
1050 DATÁ " PUERTA"," TUNEL"," C 
UEVA" 
1040 RETURN 
2000 REM ** PUERTA +*x 
2010 GO TO 2000+INT (RND*4+1>x10 
0 
2100 PRINT “"ESTA CERRADO. MARCH 
ESE.": RETURN 
2200 LET G=INT (END*9+13x100 
2210 PRINT “"SE ABRIRA. AQUI HAY 
”:203*” LINGOTES DE O 
ROS 
2220 LET G=G+0: RETURN 
2300 PRINT “"AQUI HAY UN LAGO. U 
STED nao PUEDE VER LA ORILLA 
OPUESTA." 
2310 PRINT "VA A TRATAR DE CRUZA 
RLoO?" 


22320 INFUT C+ 

2323 ÉS 

2330 IF C$(c13<>"S" THEN RETURN 
23340 LET K=INT (RND*3>+1 

2350 IF K=2 THEN PRINT "HA SACA 
DO. *$63* LINGOTES***DE ORO," 60 


TO 2370 

2360 PRINT AT 10,4; FLASH 1;"DES 

GRACIADAMENTE, SE HA" 

2370 PRINT AT 11,79: INK 2; FLASH 
13"... AHOGADO! !'!": GO TO 5000 

2400 LET K=INT (RND*?>+1x*50 

2410 PRINT “"ESTA SALA CONTIENE 

UN "3 INK 2; FLASH 1;"DRAGON." 

2420 PRINT "PIDE ";k;" LINGOTES 

DE ORO"""0O LO DEVORARA." 

2425 PAUSE 200: POKE 23692,-1 

2430 FOR J=1 TO 20 

2435 BEEP .2,J 

2490 PRINT  INK RND*%;TAB J;"PRE 

PARADO" 

2450 NEXT J 

2460 IF G>k-1 THEN PRINT "YA TI 

ENE BASTANTE.": LET G=G-K: PAUSE 
100: RETURN 

2470 PRINT FLASH 1; INK 23"...P 

ERO NO ES SUFICIENTE... DE F 

ORMA QUE ...ADIOS!'. ": GO TO 500 

0 

3000 REM x** TUNEL *x* 

3010 IF RND>.85 THEN RETURN 

3020 PRINT “"HA SALIDO CON "¿G”" 

LINGOTES DE ORO": STOP 

4000 REM x** CUEVA *x 

4010 GO TO 4000+INT (RND*3+1)x*10 

0 

4020 PRINT "LA CUEVA ESTA VACIA. 

MARCHESE.": RETURN 

4200 LET Q=INT (RNDx*10+1>x*100 

4210 PRINT “"AQUI HAY "¿Q;" LING 

OTES DE ORO" 


29 


30 


420 


PRINT "PARA AGREGAR Á SU TE 


S5ORO," 


9230 
39300 
4305 
4310 
H 
4320 
(a 
39320 
4335 
23330 
y 
9350 
4350 


LET G=G+Q0: RETURN 

IF RND>.9 THEN GO TO 4400 
POKE 23692,-1 

FOR H=1 TO 24: PRINT : NEXT 


PRINT— INK 2; FLASH 1;"0H N 
FOR J=1 TO 15 

BEEP .2,J 

PRINT TAB 2*J; INK RND*5;"D 


NEXT J 
PRINT— INK 2; FLASH 1;"ES U 


H POZO DE MINA" “* "ESTA MUERTO.": 


50 TO 5000 

4900 PRINT “"HAY RUIDOS DELANTE" 
4410 PRINT "DESEA INVESTIGAR?" 
9420 INPUT Ks$ 

4430 IF K$(1)<>"S" THEN RETURN 
4430 60 TO 4000 

5000 RESTORE 5020 

5005 FOR A=1 TO 10 

5010 READ B,C: BEEP B,C 

5015 NEXT A 

5020 DATA 1,0,1,0,.5,2,.5,0,.5,3 


IA UR | A UA A | 5) ,Ú 


LA BALDOSA LOCA 


La Baldosa Loca de Ken Mahogany pone al jugador al mando de 
una parrilla, de cuatro por cuatro espacios, en los que se hallan 
letras del alfabeto. Se ha de intentar ordenarlas por su orden natural 
tal como se presentan a continuación: 


<¿ — m> 
2emno 


O0XAO0O 
e a, 


... COn Un espacio en la esquina inferior derecha. Se hace el mo- 


vimiento poniendo el número (existe un código al lado de la presen- 


tación) de la letra que se desea mover y a continuación el cuadrado 


donde se desea colocarla. No se permite hacer trampas. El programa 


cuenta el número de movimientos realizados y deberá poder hacerse 
en unos 40. Si se desea cambiar el orden de las letras al principio 
del juego, cámbiense los valores de la instrucción DATA de la lí- 


nea 420. 


10 
zÚ 
30 
40 
50 


REM LA BALDOSA LOCA 
REM O K MAHOGANY ,1982 
GO SUB 330 

GO suB 200 

GO SUB 200 


70 INPUT  INK 7;"QUE LETRA MUE 
VE? "¿Xx 
110 1F A(X)=32 THEN GO TO 90 
130 INPUT  INK 7:¡TAB 8;"A DONDE 
> nr 
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32 


140 IF AcY)<>32 THEN GO TO 130 
150 LET ALYA=AOX) 

160 LET A(X)=32 

170 LET GO0=G0+1 

180 60 TO SO 

200 REM * PRESENTACION GRAFICA 
210 PRINT AT 0,3; PAPER 7; INK 
3; "MOVIMIENTO NUM. "3 INK 2;G0 
220 PRINT “” INK RNDx*4;CHR$ ACI 
) ¡CHR$ A(2)¡CHR$ A(3)>;CHR$ ACI), 
”" 1 Z 3 4 ” 

230 PRINT  INK RND*4;¿CHR$ A(5); 
CHR$ Aé) ¡CHR$ AC7)¿CHR$ A(8)," 
S.-6 7 8 

240 PRINT  INK RNDx*49;CHR$ A(9); 
CHR$ A(10):¡CHR$ A(11)¡CHR$ A(12) 
." 910411 12* 

250 PRINT  INK RNDx*4¿CHR$ A(13) 
¡CHR$ Ac19);CHR$ AC15)¡CHR$ Al1é 
E ON 


2320 RETLIRN 

330 REM INICIACION VARIABLES 
340 DIM At16> 

250 FOR B=1 TO 16 

360 READ M 

370 LET ALB>=M+64 

380 NEXT E 


370 LET G0=1 

400 PAPER 6: BORDER 2 

405 CLS 

410 RETURN 

420 DATA 9,14,5,2,11,6,1,4,12,7 
,=32,10,13,8,3,15 


EL ESPECTRO DEL 
AHORCADO 


Este es un juego bastante directo en el que el ordenador escoge 
una palabra de su propio vocabulario y a continuación proporciona 
un número limitado de oportunidades para adivinarla (la adivinación 
se basa en la longitud de la palabra). Puede cambiarse o extenderse 
el vocabulario con facilidad. “El espectro del ahorcado” (Spectral 
Hangman) fue escrito por Ken Mahogany. 


170 


REM EL ESPECTRO DEL AHURCADO 
REM O K MAHCOGANY, 1982 

FOR G=1 TO RND*x25+1 

READ A$ 

NEXT 6 

LET N=LEN A$ 


-DIM B(N2>: DIM DUN> 


FOR G=1 TON 

LET B(G>=CODE ÁA$(6G) 

LET D(G>=BC(G) 

NEXT 6 

FOR J=1 TO N+N/3 

GO SUB 410 

IF H=N THEN GO TO 300 
PRINT **** INK RND*6;" PONGA 


SU HIPOTESIS NUM. "3J 


200 
z10 
220 
230 
290 
zé0 
z65 
¿70 


INPUT C$ 

LET F=CODE C+$ 

FOR G=1 TON 

IF DC(G)=F THEN LET D(G>=0 
NEXT G  - 

NEXT J 

GO SUB 410 

PRINT ** INK 3;3"LO SIENTO, 
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SE ACABO EL TIEMPO!" 

280 GO TO 330 

300 REM x** ACIERTO *x* 

310 PRINT “ INK 4;TAB 4;"BUEN T 
RABAJO! " 

320 FRINT ” INK 4;"CONSIGUIO LA 

PALABRA EN ",J-13" ENSAYOS" 

330 PRINT ” INK 2;"LA PALABRA E 
RA "¡As 

335 PRINT “” INK RND*5;"PULSE C 
UALGUIER TECLA PARA UN NUEVO J 
UEGO" 

340 PAUSE 4e4 

350 RUN 

360 DATA "RASGO" ,"ORDENADOR” ,"R 
IESGO" "AVILA" ,"CALABAZA" 

370 DATA "ASUNTO" ,"BROMA" , "CARA 
" "TIO", "GRABADOR" 

380 DATA "BASICO" ,"FORMULA", "AM 
ISTOSO","RECURSO", "MEJOR" 

390 DATA "MANTEQUILLA" ,"FRESA", 
"PELMA","ATOMO", "HECHICERO" 

400 DATA "BRUJO" ,"PERVERSAMENTE 
" "ENVIDIA", "LIBERTINO","VAGABUN 
DO" 

410 LET H=0 

415 FOR E=1 TON 

420 IF B(E)>=D(E)> THEN PRINT 1 
NK RND*6;"-"; 

430 IF B(E><>DCE> THEN PRINT 
INK PRNDx*S;CHR$ (B(E>>);: LET H=H+ 
1: BEEP .25,H 

440 NEXT E 

450 BORDER RNDx*4 

460 PRINT ” INK 0; PAPER 6;"HA 
ADIVINADO "; INK RND*S;H; INK 0; 
" LETRA"; 

370 1F H<>1 THEN PRINT PAPER 
6; pedo 

480 PRINT 

490 RETURN 


REACCION 


Este programa pone a prueba sus reflejos. El ordenador presenta 
una letra o un número en cualquier posición en la pantalla. Hay que 
pulsarlos inmediatamente. Se empieza con cinco puntos que se ga- 
nan si la pulsación es correcta, o se pierden si se es demasiado lento 
o se hace la presentación equivocadamente. Esto pudiera parecer 
demasiado fácil, especialmente porque hay un control de velocidad 
pero el ordenador conserva todas las letras en la pantalla por lo 
que se debe recordar las existentes antes de pulsar la nueva. El 
juego se detiene cuando se acaban los puntos. 


1 REM REACCION POR D HARWOOD 
2 LET L=5 

10 PRINT TAB 10; INK RND*S5; FL 
ASH 1;"REACCION" 

20 PRINT ““"SE PRESENTARA UN C 
ARACTER EN LA PANTALLA Y USTED D 
EBE DE PULSAR-LO EN EL TECLADO 1 
NMEDIATAMENTE. " 

30 PRINT ““"SI LO HACE MAL TEN 
DRA UNA NUEVA OPORTUNIDAD PERO S 
OLAMENTE EM- PIEZA CON 5 PUNTOS 

40 PRINT ““"LE QUITARE 2 PUNTO 
S SI NO ES LO BASTANTE RAPIDO." 

45 INPUT "VELOCIDAD (1-10) 2"; 
a 

SO PRINT “* INK 2; FLASH 1;"C0 
NFIO QUE ESTE PREPARADO" 

$0 PAUSE 200 

70 CLS : POKE 23562,-1 
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75 PRINT AT 0,0; INK 1; FLASH 
1;"REACCION REACCION REACCION" 
76 PRINT AT 2,0; INK 2; FLASH 
1;"PUNTUACION "¿L 
77 1F L<i THEN GO TO 230 
80 LET A=INT (RND*26>)+65 
90 IF RND>.7? THEN LET A=INT ( 
RNDx*9) +48 
100 LET X=RND*x18+3: LET Y=RND*3 
1 
105 BEEP .1,0: PRINT AT X,Y; IN 
K RND*S; FLASH 1;CHR$ A 
110 PAUSE Tx*? 
120 LET As=INKEYS$ 
125 IF A$="" THEN GO TO 210 
130 IF CODE A$=A THEN GO TO 17 
0 
140 PRINT AT 0,0; INK 2; FLASH 
13"MAL, HA PERDIDO UN PUNTO . 
150 PAUSE RND*200 
150 LET L=L-1: GO TO 75 
170 PRINT AT 0,0; INK 2; FLASH 
des MUY BIEN 
180 LET L=L+1 
190 FOR T=1 TO 10: BEEP .1,T: N 
EXT T 
200 GO TO 75 
210 PRINT AT 0,0; INK 3; FLASH 
q" VAYA MAS RAPIDO A 
215 PAUSE RND*200 
220 LET L=L-2: 60 TO 75 
230 CLS : PRINT AT 10,0; INK RN 
DxSjy FLASH 1;"SE LE ACABARON LOS 
PUNTOS. ADIOS" 
240 BEEP 1,-2: BEEP 2,4 


POESIA 


Este programa convierte a su Spectrum en William Shakespeare... 
casi. Escogiendo palabras en forma aleatoria de la declaración DATA 
y espaciándolas mediante las instrucciones de las líneas 40-60 se las 
arregla el programa para formar frases bastante bien. Estas aparecen 
presentadas en la pantalla con diferentes colores y algunas se hacen 
resaltar con la instrucción BRIGHT (brillo). “Poesía” fue escrito por 
Tim Hartnell. 


5 
10 
20 
30 
40 
50 
60 
FO 
Es 
JU 
20 

100 
110 


RANDOMI ZE 

REM POESIA 

POKE 23692,-1 

IF RND>.7 THEN G0 TO 7?0 
FOR J=1 TO RNDx*3 

PRINT 

NEXT J 

LET As="  " 

RESTORE 

FOR A=1 TO RNDx*12 

READ B$ 

NEXT A 

LET X=LEN A$: LET Y=LEN B$ 


120 IF AB(X-1>=B+cY-1) THEN GO 
O 43 

130 1F X+Y>=32 THEN GO TO 160 
140 LET A$=A4$+B+$ 


150 GO TO 75 


140 


PRINT— INK RND*5; BRIGHT C(RND>.8>;A$ 


170 GO TO 10 

200 DATA "YO TUVIERA ","MIL DUCADOS "," 
CODICIADOS *,*DE CASTILLA “un.” 

210 DATA "MAL HALLADOS ","DESPE 
RDICIADOS ","LOS DINEROS ","SI, AMADO " 
220 DATA "SUSPIRADOS ","NO QUIE 
RO HABLAROS ","COSAS QUE CONTAROS " 
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TRES EN RAYA 


Suponemos que no es necesario decir cómo se juega. 

El ordenador y usted juegan alternativamente tratando de conse- 
guir las tres oes o las tres equis en la misma línea. A diferencia 
de otras muchas versiones de ordenador, este programa le permite 
ganar de vez en cuando. La mayoría de aquellas versiones no le dan 
ninguna oportunidad, pudiendo optar, a lo sumo, por un empate. 

Se inicia el juego poniendo el número del cuadro en el que desea 
colocarse. El jugador hace el primer movimiento, pero el ordenador 
lo ignorará si no es el 5 (el centro del cuadro). 

Esta versión del juego es capaz de producir más de 40.000 desa- 
rrollos de “Tres en raya”, un octavo aproximadamente de todos 
los juegos posibles. 


1 REM TRES EN RAYA 
2 REM ADAPTADO POR T HARTNELL 
Y D HARWOOD 
3 REM DE UN PROGRAMA DEL 2X80 
4 REM POR STUART ROBERTS 
10 DIM B(9): DIM-PC9) 
20 FOR A=1 TO 9 
30 LET B(A)=A 
40 NEXT A 
50 LET E=0: LET 0=0 
60 LET N=0 
70 LET X=4 
80 PRINT AT 5,0; 
90 FOR A=1 TO 9 
100 IF A=X THEN LET X=X+3: PRI 
NT + 
110 IF B(A)=0 THEN GO TO 320 
120 IF B(A)»=10 THEN GO TO 350 
130 PRINT  INK RNDxó;B(A);" "; 
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TO 


190 NEXT £ : 
150 IF N=1 THEN 60 TO 380 
150 IF E=8 THEN PRINT 

s FLASH 1;"YO GANO ": GU 
170 IF 0=5 THEN PRINT 

y FLASH 1;" ES UN EMPATE 

O 730 

180 INPUT "LE TOCA A USTED 


INK 1 
730 

INK 1 
Ga T 


VS Z 


120 IF B(23<>2Z THEN 60 TO 180 
200 LET 0=0Q+1 


210 IF Z=11 THEN 


GO TO 40 

220 LET N=1: LET B(Z>=0 
230 60 TO 70 

240 FOR A=C TO D 


250 
260 
270 
280 

290 
300 
310 
320 


NEXT A 


PRINT 


FLASM 07" "; 


IF B(A>=A THEN 
LET A=A+F 


GO TO 60 
IF B(5>=5 THEN GO TO 20 
LET B(D>=10 
GO TO 40 


INK 1; 


330 LET PCA)=1 
340 GO TO 140 
INK 2; FLASH 1,"X"; 


350 PRINT 


FLASH 0,3" "; 
LET P(A>=4 
GO TO 140 
LET G=0 
LÉET C=1: 
GO SUB 580 

LET C=3: LET D=7: 
GO SUB 580 
LET D=9?: LET 
GO SUB 580 
LET C=2: 
GO SUB 580 
LET. C=1: 
GO SUB 580 


360 
370 
380 
390 
400 
410 
420 
430 
440 
456 
460 
470 
480 


LET D=?: 


LET D=8 


LET D=? 


LET B(57=10: 


LET BrA>=10 


FLASH 1:*0"; 


LET F=3 


LET F=t 
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40 


470 LET D=2: LET F=0 
500 GO SUB 580 
510 LET C=9: LET D=4 
520 60 SUB 580 
530 LET C=7?: LET D=9 
540 GO SUB 580 
550 LET G=G+1 
560 IF*G=5S THEN GO TO 640 
570 GO TO 390 
580 LET E=0 
590 FOR A=C TO D 
600 LET E=E+PC(A>): LET A=A+F 
610 NEXT A h E 
620 IF E=3 THEN GO TO 720 
630 IF 6G=0 THEN RETURN 
6490 IF E=8 THEN GO TO 290 
650 IF G=1 THEN RETURN 
660 IF E=2 THEN GQ TO 240 
670 IF G=2 THEN RETURN 
680 IF E=5 THEN GO TO 240 
670 IF G=3 THEN  RETUEN 
700 IF E=1 OR E=4 THEN GO TO 270 
710 RETURN 
720 FOR A=1 TO 10: EEEP .1,A: E 
EEP .1,10-A: NEXT A 
725 PRINT.— INK 2; FLASH 1;"USTE 
D GANA " 
730 BEEP ,.1,0: BEEP .2.,0 
735 INPUT FLASH 1;"DESEA OTRA 
PARTIDA? ";¿kK$ 
790 IF K$(c1)>)<>"N" THEN CLS : RUN 
750 PRINT *“"MUY BIEN, GRACIAS 
POR JUGAR" : 
123 112:3 9.2.3 
575 á 8 +. 0.60 
7839 ?eax Xx 8 xXx 
DE Xx 3 D- Xx 3 
406 oQaQ xx 
Xx DO Xx XQ 


MUSICA 


Este programa simula una octava del teclado de un piano uti- 
lizando caracteres definidos para dicho teclado. Ejecútese la línea 3 
antes de entrar el resto del programa para que puedan tenerse los 
caracteres definidos, inmediatamente que se pulsen en el modo 
gráfico las teclas expresadas (''P” e 1”). 

Las teclas de la “P” a la ““Q” representan las blancas del piano, 
y las de los números “2”, “3”, “5”, “6”, *7”, “9” y “0” correspon- 
den a las teclas negras. La pulsación de cualquiera de estas teclas 
dará lugar a la producción de una nota musical. Se puede alterar 
el tiempo de las notas cambiando el .3 en la instrucción BEEP de 
la línea 105. 


1 REM EL COMPOSITOR POR D HAR 
WOOD 


2 REM EJECUTE LAS LINEAS 3 Y 
4 ANTES DE ENTRAR EL RESTO DEL 
PROGRAMA . 

3 FOR N=0 TO 7: POKE USR "P"+ 
N,1ó6: POKE USR "1"+N,252: NEXT N 

4 LET P$="";: LET N$="": LET P 
=0: LET X=0 

S PAPER 0: INK 7: BORDER 0: C 
LS 

7 PRINT 

10 FOR M=1 TOS 

15 REM PARA OBTENER Jj PULSAR 
“P” EN MODO GRAFICO---PARÁ OBTE 
NER PULSAR “1” EN EL MISMO MO 
DO. 

20 PRINT TAB 10;")JBBI/DRD)N" 

41 


42 


30 NEXT M 


40 FOR M=1 TO 4 
50 PRINT TAB 10;"))))))))))" 


60 NEXT M 


70 LET K$=INKEYS 
80 IF K$="" THEN GO TO ?0 

35 IF P$=kK$ THEN GO TO 100 
90 GS SUB 1000 


100 PRINT OVER 1;AT X,9+P;N8 


105 BEEP .3,A 
110 LET P$=K$8 


115 PRINT OVER 0O;¡AT 0,103" 
¿+";¿AT 9,105"7))))) 


120 GO TO 70 
1000 IF K$="1" 


1005. IF kK$="2" 


1010 IF K$="4" 
T P=S 

1015 1F K$="5" 
T P=4 

1020 1F K$="6" 
ET P=7 

1025 IF K$="8" 
ET P=9 

1030 1F K$="9" 
ET P=10 

1035 1F K$="Q" 
ET X=8: LET P=1 
1040 IF K$="y" 
T P=2 

1045 IF K$="E" 
T P=3 

1050 1F K$="R" 
T P=4 

1055 1F K$="T." 
T P=5 

1040 1F K$="Y" 
T P=4 


THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


THEN 


LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
LET 


LET 


Asi: 
AR3: 
ARS: 
AR8: 
Az10 
AR13 
AR15 
As-1 
ARO: 
Ae2: 
Ax4: 
A=5: 


az?: 


LE 
LE 
LE 


LE 


LE 


LE 


1065 1F K$="U" 
T P=7 

1070 1F K$="1" 
ET P=8 

1075 1F K$="0" 
ET P=9 

1080 1F Ks="P" 
ET P=10 


THEN 
THEN 
THEN 


THEN 


LET 


LET 


LET 


LET 


1090 LET X=2: LET Ns$="P" 
OR K$="2" 


1100 IF kK$="1" 


4" OR K$="5" OR K$="6" 


A=9: LE 


A=11: L 


Aá=12: L 


A=14: L 


OR K$=" 


OR Ks$="8" 


OR K$="9" THEN LET X=0: LET N$ 


1110 RETURN 


Am 
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LA DEMOLICION 


En esta versión de “La demolición” el jugador controla el bate 
desde el lado izquierdo de la pantalla usando las teclas “6” y *”7”” 
para moverlo y tratar de mantener la bola dentro del campo. El ob- 
jetivo es demoler lo más que se pueda los muros de tres colores. 
Los que están más al fondo puntúan más alto. Se le conceden cinco 
bolas en cada juego. Es preciso poner en CERO la variable H (LET 
H = 0) antes de ejecutar el programa para establecer el contador de 
alta puntuación, empezándolo a continuación por GO TO 5 en 
lugar de RUN. 

Si se conserva en cinta magnética el programa después de haber- 
lo jugado, empiécesée con GO TO 5; la anterior puntuación elevada 
estará dispuesta para el nuevo juego. Los gráficos, los colores y el 
sonido que se usan en este juego lo hacen muy atractivo. 


1 REM EJECUTENSE LAS LINEAS 2 
-4 ANTES DE ENTRAR EL RESTO DEL 
PROGRAMA . 

2 FOR T=0 TO 7: READ 2 

3 POKE USR a NEXT T 

49 DATA 0,50,126,126,126,126,6 


3 RÁANDOMIZE 
10 LET T=0: LET 2¿=0 
20 LET TB=0: LET R=8 
30 BORDER END*?:+ INK 7: CLS 
40 PRINT AT 1,0; INVERSE 1," 
E DEMOL 1 C10N « 
50 PRINT AT 17,0; INVERSE 15" 
DEMOLICIÓN y 
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$0 PRINT AT 18,05" PUNTUACION 
BOLA MN." paT 18,07 DUER 113*__ o 
70 PRINT AT 21,0;"PUNTUACIOÓN M 
ps "SS HAT 21,05 OVER 13” cm 
30 FOR I=2 TO 14 
20 PRINT AT 1,13; INK 3;"5M4AYy" 
INK 07" "5 INK 49;"BRS"; Ink 
SU IN Op "y INK 6;"p" 
100 NEXT 1 
110 LET A=-1: LET D=1: LET X=11 
LET Y=INT ¿PRND*105+5 
120 LET TE=TE+1 
130 1F TB=á THEN GO TO 310 
190 PRINT AT 17,15;T8 
150 PRINT-AT Rig” “AT R+i,15* 


160 LET R=R+cINKEY$="4")-c£ INKEY 
$="7") 

165 IF R=1 THEN LET R=R+1 

167 IF R=1% THEN LET R=R-1 

170 PRINT AT R,1ij INK 1:"B" ¡AT 
R+1,15"8" 

190 LET X=xX*A: LET Y=Y+D 

200 LET N=ATTR (Y,X) 

202 REM PARA OBTENER M PULSAR * 
A” EN mú00 GRÁFICO. 

205 PRINT AT Y,X; INK 2,"0" 

210 IF Y=2 OR Y=1é THEN LET D= 
—b 

220 1F N=57 OR X=30 THEN LET A 
=-A: BEEP .01,20+RNDx10 

230 PRINT AT R,13" "¡AT R+1,137" 

240 LET R=R+(<INKEY$="4")-( INKEY 
$="7") 

245 IF R=1 THEN LET R=R+1 

247? 1F R=16 THEN LET R=R-1 

250 PRINT AT R,1z INK 1:*"B";¡AT 
R+1,15"B" 

45 


46 


260 
270 
273 
280 
270 
300 


IF N<5S8 THEN 0 TO 300 
LET T=T+(N-57)%5 


BEEP .01, 


PRINT AT 
LET A=-A 
PRINT AT 


0>*z20+110 


23ZU 


PRINT AT 


GO TERMINADO" 
330 IF T>H THEN LET H=T 

PRINT “"LA PUNTUACION MAX. 
ES AHORA ";H 
INPUT "OTRA PARTIDA? "¡As 


340 


350 


360 IF At="N" 


370 


70 
/ 


CLS : 60 


Z0+RND*10 
LAZO 


MA GO O Es 


10,33 FLASH 15" JUE 


THEN STOP 
Ta 10 


PUNTUACION MAX. 1095 


ZAP 


Se trata de impedir que los omnipresentes extraterrestres nos 
invadan (¡la historia de nuestras vidas!). Pueden descender por tres 
direcciones: verticalmente, en diagonal por la izquierda o por la 
derecha. 

Hay que establecer en posición la base mediante las teclas *'5'” y 
“8”, y disparar el misil con la “F” para interceptar la ruta de 
descenso. 

El bloqueo de la nave extraterrestre con la propia no surte 
efecto. Al principio de cada juego se pide el nivel de dificultad 
(de O a 5), con el cero para lo más fácil. El programa fue escrito 
por Paul Toland. 


1 REM EJECUTE LAS LINEAS 2-4 
ANTES DE APLICAR EL RESTO DEL 


PROGRAMA 

2 FOR A=1 TO 2: READ A$: FOR 
T=0 TO ? ' 

2 READ 86: POKE USR A$+T,E 

4 NEXT T: NEXT A 

S DATA "A",0,0,0,24,60,255,25 
5,255 

¿ DATA "5",0,24,60,90,255,90, 


129,129,0 
AR lio 
A A E y 
3 FOR 2=:; TO 32 
Y LET Cé=C*$+CHR$ 16+CHR$ C<¿RND 
eS)+B LLC WHEXT 2 
10 LET T=0 
47 


48 


20 INPUT FLASH 1;"MÁRQUE EL N 
IVEL, POR FAVOR (0-353"5¿L 

30 LET BP=999: LET G=1ú6 

35 LET B=-1 

40 CLS 

50 PRIMT AT 17,0;0$ 

60 LET T=T+1: LET F=INT ¿RND*3 


ZO PRINT AT 0,07 
380 IF R=3- THEN  —LET P=INT ¿END 


90 IF R=2 THEN  LET P=INT <RND 
*16x*2 

100 1F R=1 THEN  LET P=INT <¿RND 
*123+20 

110 LET I=R-2 

120 FOR J=L TO 19 

125 REM PARA OBTENER MA PULSE “S 
“ EN MODO GRAFICO, 

130 PRINT AT J,Pj INK 1" 

140 LET Af=INKEYS$ 

150 PRINT AT 18,6," ” 

160 LET G=G+(As$="8")*2-(A$="5") 
*Z 

165 REM PARA OBTENER «e PULSE “A 

EN MODO GRAFICO. 

170 PRINT AT 18,6; INK 2" 

180 IF As="F" AND B=-1 THEN BE 
EP .01,0: LET E=17 

1790 IF B=17 THEN  LET BP=6G 

200 1F B>-1 THEN. PRINT AT E,BP 
"o "1 LET B=B-1: PRINT AT B,BP; 
INK 33"." 

205 FOR 2=5 TO Lx*3 STEP -1: NEX 
E ] 

210 IF (B=J OR E=J+1) AND EP=P 
THEN 60 TO 25 

220 PRINT AT J,Pp" " 

230 LET P=P+1 

290 NEXT J 


250 PRINT AT J-1,P3" "3 INK 13" 
INR ea . 

Zzó0 LET Dé="LOS EXTRATERRESTRES 
HÁN BAJADO" 

270 FOR 2=1 TO 30 

270 BEEP 1-2 

220 PRINT AT 21,2-1:¡D$(2>) 

300 NEXT Z  * : 

310 PALISE 10: BEEP .1,0: PAuUsE 


320 PRINT AT 0,0; FLASH 15 INK 
34 "FULSE 5 FAÁRA UN NUEVO JUEGO 


330 PAUSE des 
340 IF INKEY$="5" THEN  CLS :56 
ip 
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CENTROPOIDE 


Usted, representado por un MB azul, viaja alrededor de la pantalla 
atacando a los 


1401 


mientras evita los cuadrados rojos. Hay que 


destruir los diez asteriscos antes de que termine el juego. Si tiene 
éxito, se da el tiempo. ““Centropoid”' fue escrito por Paul Toland. 


50 


10 RÁANDOMIZE 
¿20 FOR 1=0 TO 31 
30 PRINT AT 0,1]; INK 2" ¡AT 

¿l ¿"e 
90 MEXT 1 
50 FOR 1=0 TO Zi 
$0 PRINT AT 1,0; INK 2;"M ¡87 
1 ' 31 ¡"MU 

0 PRINT AT RND*159+1,RIND*259+1; 

INK 2," 

04 NEXT 1 

100 FOR I=1 TO 10 

110 PRINT AT END*19+1,FND*27+1; 

INK 3,"%" 

20 NEXT TI. 

130 LET T=0: LET H=0: LET *<=3 

190 LET YT=23: LET A=0: LET D=1 

150 LET ASs=INKEYS$ 

150 IF Áé="5" OR Aé="8S" THEN  L 
ET D=0: LET A=SÓN (WAL At-4) 

170 IF A%="6£" OR A="?" THEN  L 
ET A=0: LET D=SGON ¿WAL At-6.5)*- 
1 

130 LET x=X+A: LET Y=Y+D 

120 LET N=ATTR (Y,x> 


tá 
- 


200 PRINT AT Y,X; INK 13 "ae" 

205 BEEP .2,X 

210 IF N=529 THEN LET H=H+1 

220 IF H=10 THEN GO TO 250 

230 IF H=57 OR N=58 THEN GO TO 
260 

240 LET T=T+1: GO TO 150 

250 PRINT AT 10,5; INK 5;; FLAS 
H 1¿"ACABO EN ";T;," SEGUNDOS" 
260 INPUT "OTRA PARTIDA? "¡As 
270 IF A$="N" THEN STOP 


280 CLS : RUN 


SOSLAYANDO PELIGROS 


Dirija su serpiente en continuo crecimiento con las teclas “5”, 
6”, “7 y “8”, evitando la caja que la rodea así como su propia 
cola y los signos +" que encuentre. El objeto del juego es durar 
todo lo posible y al final se da el tiempo consumido “Soslayando 
peligros” ('Avoid”") fue escrito por Paul Toland. 


10 RANDOMIZE 
20 FOR I1=0 TO 31 


30 PRINT AT 0,1; INK 2," ¡AT 
21,1;"W" 

40 NEXT 1 

50 FOR I1=0 TO 21 

$0 PRINT AT 1,0; INK 2;"W" ¡ar 
1,31; "W" 

70 PRINT AT RND*19+1 RND*29+1'; 

INK A 

70 NEXT 1 

100 LET T=0: LET H=0: LET D=1 

110 LET X=2: LET A=0: LET Y=5 

120 LET A$=INKEYS 

130 IF A$="5" OR Af="8" THEN L 
ET D=0: LET A=SGN (VAL A$-64) 

190 IF Af="6" OR A$="7" THEN L 
ET A=0: LET D=SGN (VAL A$-6.51*- 
1 

150 1F A$="7?" THEN LET D=-1 

150 LET X=xX+A: LET Y=Y+D 

170 LET N=ATTR (Y,X) 

175 PRINT AT Y,X; INK 1;"N" 

177 BEEP .2,X 
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IF N=59% THEN  LET H=H+1 
IF N=537 OR N=58 OR H=6 THEN 
0 TO 210 

¿00 LET T=T+1: 60 TO 120 

210 PRINT AT Y,x3"*"” 

¿20 FRINT AT 10,63 INK 4; FLASH 
1;"HA DURADO "¿T;" SEGUNDOS" 
230 INPUT “OTRÁ PARTIDA? "¡Ar 
290 IF A%="N" THEN STOP 

250 CLS : RUN 


40 00 
en Ml es] 


1 
1 
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SORTEANDO ASTEROIDES 


En “Sorteando Asteroides”, escrito por Tim Rogers, su nave se 
encuentra cerca de un extraño cinturón de asteroides pero cuenta 
con un escudo protector a su alrededor que impide que los choques 
puedan destruirla. El único problema es que el contacto con ellos le 
empujan fuera de la pantalla y el juego consiste en mantenerse en 
ella todo el tiempo posible. Cuanto más bajo se encuentre en la 
pantalla mayor será su puntuación. 


1 REM EJECUTE LAS LINEAS 2-6 
ANTES DE APLICAR EL RESTO DEL 
PROGRAMA 
2 FOR x=1 TO 2: READ A+ 
FOR T=0 TO 7: READ $ 
POKE USE AR+T,Ar: NEXT OT: HE 


Z 

3 

4 
XT Xx 

S: DATA: *P*",0,8,8,842399,12099,12 
64,60 

é CATA "0",170,985,170,85,170, 
25,170,285 

7 LET H=1 

32 POKE 23672,-1 

PF LET S=0: LET li=5: LET P=10 


LO ¿PRINTCAT U=1 Po 
20 LET P=P-(Peio 
30 LET P=P+CINKEYS<> "Mor 2riPIz2 


UD) 

490 LET N=ATTR 2U,P> 

50 IF N=58 THEN  LET U=lJ-1: EE 
EP .1,¿U 


SS IF U=s0 THEN 60 TO 100 
54 


110 


REM PARA OBTENER w PULSE “P 
MODO GRAFICO. 

PRINT AT U,P;¿"w" 

PRINT AT 21,0; 

REM PARA OBTENER K PULSE “0 
MODO GRAFICO. 

PRINT TAB RND*20; INK 2; "UNS 


PRINT 

FOR J=1 TO 10: NEXT J 

LET S=S+U: GO TO 10 

IF H<S THEN  —LET H=S 

PRINT AT 0,0;35 INK 1; FLASH 


1;;"SORTEANDO ASTEROIDES:"“"su 
PUNTUACION —",S*"PUNTUACION MAXI 
MA "5H 
INPUT "OTRA PARTIDA? "¡As 
IF A$="S" THEN CLS : GO TO 


120 
130 
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CAMPO DE MINAS 


Usted está al mando de un escuadrón de tanques en este juego 
escrito por |. S. Howson. Se encuentra un campo minado enemigo 
que hay que pasar. ¿Cuántos de sus tanques se perderán tratando 
de encontrar una ruta de paso segura? 

Cuando ejecute el programa, el ordenador generará un campo de 
minas diferente cada vez que juege. Conduzca su tanque a través de 
la pantalla utilizando las teclas de adelante, arriba y abajo. Si pisa 
una mina, el tanque volará y habrá que probar otra vez con el siguien- 
te. Las minas son múltiples y destruirán cada tanque que pase por 
encima. La puntuación se presenta en la parte superior de la pantalla. 
Si tiene éxito en su búsqueda de un paso seguro, el programa se 
detiene, sonando una pequeña tonada. 

Encontrará cóma mejora en su habilidad de moverse por el campo 
de batalla a medida que progresa el juego. 


1 REM EJECUTE LAS LINEAS 2-5 
ANTES DE APLICAR EL RESTO DEL 
PROGRAMA 

2 FOR T=0 TO 7: READ Y,Z 

3 POKE USR "A"+T,Y: POKE USR 
“541,2: NEXT T 


4 DATA 0,0,0,0,0,0,0, 

5 DATA 15,242,15,244,15,248,1 
5,240 . 

10 LET s=0 


Z0 RÁANDOMIZE 

30 LET B=0: LET Az=10 

390 PRINT AT 0,0; INE 2; FLASH 
1; "TANGUES DESTRUIDOS "15 

$0 PRINT AT A-1,B;" , 

é£5 REM PARA OBTENER se PULSE 
“Ar. Y 1S* EN MODO GRSF ICO 
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PRINT AT A,B; INK 1" mw" 


80 PRINT AT A+1,B; INK 45" MN" 

90 PRINT AT A+2,B3"  " 

100 LET B=B+(INKEY$="8") 

110 LET A=A+CINKEYS="6")-( INKEY 
$="7") 

120 IF B=INT (RND*30) OR A=INT 


(RNID*20)> THEN GO TO 150 


130 

140 

150 
ASH 1 

155 
- 

157 

160 


IF B=28 THEN GO TO 210 

GO TO 40 

PRINT AT A,B; INK RNDx*$; FL 
; "BANG" 

FOR T=-20 TO -10: BEEP .01, 


BORDER RNDx*7 
PRINT AT A+1,B; INK 7; "MN: 


¡OT A+1,B; "MN" 


165 
170 


BEEP .01,10+T 
PRINT AT A+1,B; INK 0; "MW" 


¡AT A+1,B; "MN" 
175 NEXT T 


180 
170 


LET S=5+1 
PRINT AT 1,8; INVERSE 1;"TA 


NQUES” 


200 


IF S>19 THEN STOP 


205 GO TQ 20 


z10 


PRINT AT 10,0; INK 2;"HA SO 


BREVIVIDO" 


220 


BEEP 2,203 BEEP 1.3,1%57 BEE 


Pd 1005 BEBP- 53 


TANQUES DESTRUIDOS 3 


TANQUES 
BANG SANG 
a sao: 
SANG 
eu 
En BANG BANG BANG 
o bis 
BANG 
a 
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TABLON DE ANUNCIOS 


(Ampliador de caracteres) 


Este programa le permitirá conseguir una versión aumentada de 
cualquier carácter: ordinario, gráfico o definido. Las palabras claves 
y las funciones no son posibles. 

Sólo pueden lograrse cuatro caracteres por línea, escogiéndose 
los colores que han de aplicarse. La variable X incorpora la dirección 
iniciadora en la memoria ROM donde se hallan los caracteres. 


—. 


REM BILL EDARD ¿TABLOM DE 
ANUNCIOS: 


2 REM POR D HARWanoo . 

4 LET 0=0 

S LET X=PEEK 23ó06+t2D5*PEEK 2 
3én7 

10 INPUT "COLOR 2 *sTI< INK 1 

20 INPUT "PONGA 4 LETRAS “5% 

23 FOR K=0 TO < 

30 LET Pi=X+CODE ArFIÍK+i12*8 

0 FOR G=4 TO 7 

SO LET P=PEEK ¿P1+G)> 

20 FOR JI=0 TO 7 

70 1F Pg<2<>INT 223 THEN PFI 


cP 
NT AT 13+56,8-JI+(K*533 INK 1" 

S0 LET P=INT (P.-Z>) 

30 NEXT Ji NEXT G: NEXT E 

100 INPUT "OTRA WEZ ? "¡5% 

110 FOKE 23472,-1 

120 JF S$éc1o="S" THEN  PRINT 
AS VOTE LA EI E E O 1 
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a A 

Ob 00-00 
(LY CLON 
A 


LA CAZA DE GLOBOS 


En este programa de Andrew Lovering puede verse una caja abier- 
ta cerca del fondo de la pantalla. Pulsando la tecla “8'” se mueve 
hacia la derecha y con la “5” a la izquierda. Hay que tratar de 
coger un globo que desciende rápidamente desde una posición alea- 
toria en la parte superior de la pantalla. Para complicarlo más e 
introducir un elemento de suerte en el juego aparece en distintos 


lugares una tapa encima de la caja. 


Si el globo llega al fondo, o golpea en la tapa, se presenta la 
puntuación alcanzada y puede volverse a jugar pulsando cualquier 


tecla. 


1 REM EJECUTENSE LAS LINEAS 2 
-9 ÁNTES 


PROG 


- Cr 

+ . 

Y a E] 
A SA 


== 


+ 
ha 


30 


E 


jan 


E P Z 


RAMA 


FOR 


CE APLICAR EL RESTO DEL 


T=0 TO 7: READ 2 


POKE USR "P"+T,Z: NEXT T 
DATA 356,1293,2594,124,56,16,1 


LET 
LET 


EST 
CET 
LET 
LES 
REM 


6=0 

A=134:: LET C=INT CRHDSO 
xX=RND*S: LET Y=RND=*= 
A=194: LET C=INT ¿PRND=30 
E= 

B=B+1 


PARA OBTENER Y PULSAR 


EN Moca GRAFICO. 


30 PRIMT AT BE, IMK Y: "9. 
50 LET ESINT £RNDe=S0> 


60 


70 PRINT AT 20,43 INK X3" 

SO PRINT AT 21,43 INK-x3" 

50 1F INKEYS="5" AND A>0 THEN 
LET A=A-1 


¿0 PRINT AT 19,E3 INK «1 


100 1F INKEYS="8" AND AZ? THEN 


LET A=A+1 

110 1F B=18 AND E=E+1 THEN GO 
10 170 

120 IF B=20 AND C=A+1 THEN GO 
TO 1530 

130 1F E=21 THEN GO TO 1%0 

1940 CLS : 60 TO 30 

150 LET D=D+1 : 

150 PRINT AT 0,03 INK 1; FLASH 
1; "PUNTUACION ";D 

170 FOR J=10 TO 20: BEEP .1i,J 

175 BEEP ,1,20-J: NEXT J 

1380 GO TO 10 

170 PRINT AT 0,03 INK 1; FLASH 
1 "PUNTUACION "0D 

200 PAUSE 4e4: RUN 
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VIAJANDO ENTRE 
LAS ESTRELLAS 


Tim Rogers escribió este gran juego por el que tiene que dirigir 
su nave espacial entre las estrellas dejando una estela mientras pasa 
zumbando por el espacio. 

Cada vez que el ordenador crea el Universo se tiene una oportuni- 
dad de ver dónde están situadas las estrellas de forma que, cuando 
su nave entre desde una altura variable por el lado derecho, se 
tenga alguna idea de cómo dirigirla para evitarlas. La puntuación 
se da al final del juego. Cuando se choca con una estrella ocurre 
una ruidosa explosión. 


1 REM EJECUTE LAS 
EL 


1 
ANTES DE APLICAR 
PROGRAMA. 
2 FOR T=0 TO 7: READ A 
POKE USR "P"+T,A: NEXT T 
DATA 24,60,126,255,126,5 
4 
LET S=0 
PAPER 0: BORDER 0: INK 72 € 


LIMEAS 2-4 


pl 
RESTO DEL 


un 
Li 


(5 


DOmnAa0 


” 
5) 

LS 

a] 


FOR A=1 TO 30 

50 PRINT AT INTO £RND*2053, INT £ 
RHNDF3Z23 3 INK 9,"+e" 

35 NEXT A 

60 LET F=INT ¿RHMD=zi5 

FO FOR 5=31 TO 0 STEP -—1 

75 REM PARÁ OBTENER A PULSE 

EN MODO GRAFICO. 


mm 
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30 PRINT AT PA" 

+2 1 ATTR :¿P,A-1:=9 THEN  GÚ 
TO 140 

00 PRINTOAT PA; "WN 


FE LA ; 
130 LE? P=P+: IMKEY=" 5" 2-2 INKEY 


171 3 iíD00: NEXT G 
30 MEXT A 
d0 FOR S=1 TO 20: NEXT 6 


50 TG 490 
TO i6 


TT 


160 FOR 

LSICBEER ¿Td 

170 PREINTOAT P,A-2; INK 0; "MN" 
180 BEEP .1,10-J 

170 PRINT AT OP,A-23 INK 7;"M" 
ZOO MEXT O] 

210 FOR G=1 TO 100: NEXT 6 

280 FRINT FLASH 1;"PUNTUACION= 
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LA PATRULLA GALACTICA 


Este juego le pone al mando de una nave patrullera de la Galaxia. 
Su viaje empieza con 50 galones de combustible que se van con- 
sumiendo lentamente. Lo que queda se va mostrando en la parte 
superior derecha de la pantalla. 

Se reposta cada vez que la nave entra en contacto con uno de 
los depósitos que pueda encontrar en su camino (cuadrados verdes). 
Cada vez que ocurre esto consigue 25 galones de combustible. El con- 
trol de la nave se efectúa con la tecla ““M”. Si se mantiene apretada 
se desplaza hacia la derecha y cuando se suelta, la nave se mueve 
lateralmente. 

El juego termina y se presenta la puntuación alcanzada cuando se 
consume todo el combustible o se choca con un asteroide rojo. 
Este programa fue escrito por R. Stubbs. 


1 REM EJECUTENSE LAS LINEAS 2 
-4 ANTES CE APLICAR EL RESTO DEL 
PROGRAMA . 

z¿ FOR T=0 TO 7: aia 


- 
3 POKE USR “PTA NEXT. T 
49 DATA 24,40, 126,255,126,90,1 
33,29 
10 LET F=S30: LET S5=0:; LET A=0: 
LET E=í3 
¿0 PRINT AT 21,FND*303 IME 2” 
E" ; 
30) LET R=INT ¿FND*105+1 
39 1F R=9% THEN  PRINT OST S,RHD 
*30; INK 4;"N" 
40 LET S= E LET F=F-1 
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SO POKE 23692,-1: PRINT 
¿0d 1F E>2 THEN  LET B=B-1 
ZO IF INKEY="M" ANC EX<23 THEN 
LET E=E+2Z 
?2 IF F210 THEN PRINT AT 0,20 
¡ INK 31 INVERSE 1¡"COMB.BAJO ": 
BEER: US GO TOA 
73 PRINT AT 0,20;" di 
73 REM PARA OBTENER KR PULSAR 
“P* EN MODA GRAFICO, 
30 PRINT AT 0,6¡"%R"¡TAaB 30;F 
90 LET P=ATTR (1,B> 
100 1F F=52S THEN 50 TO 140 
110 IF F=40 THEN  LET F=F+25 
120 1F F=06 THEN. 0 TO 150 
130 60 TO 0 
190 PRINT O IMNK 2; FLASH 1¡"MALA 
SUERTE, SE HA ESTRELLADO": GO T 
a 1640 
130 PRIMT O INE 13 FLASH 1; "MALA 
SUERTE, SE HÁ GUEDADO SIN  COMB 
USTIBLE”" 
150 FOR T=1 TO 10: BEEF ,1,T: N 
EXT T 
10 INPUT "OTRA PARTIDA 2 "¡4% 
1530 IF Ast1ó="S" THEN RUN 


ZOMBIS 


En esta versión de «Zombis» se empieza desde la esquina superior 
izquierda de la pantalla y se ha de llegar a la derecha del fondo. 
Es posible el movimiento a izquierda, derecha y abajo, pero no hacia 
arriba, accionando las teclas «5», «6» y «8». No se puede chocar contra 
un zombi. Tenga cuidado... ¡ya que le van siguiendo! 

El programa utiliza una «cara» para usted y una «burbuja» para 
el zombi. 


1 REM ZOMBIS POR D HARWOO 

2 REM ÉJECUTENSE Las LINEAS 3 
-6 ANTES DE APLICAR EL RESTO DEL 
PROGRAMA . 

3 FOR T=0 TO 7: READ A,B 

4 POKE USR "P"+T,A: POKE USR 
"0"+T,B: NEXT T 

5 DATA $0,60,66,126,165,255,1 
65,255 

6 DATA 129,255,189,255,66,126 
,60,60 

10 PRINT  INK 1; FLASH 1;"Z0OMB 
I1SZOMBISZOMBISZOMBISZOMBIS  " 

20 PRINT “* INK RND*S;"DEBE EN 
CONTRAR SU CAMINO PERO TENGA C 
UIDADO PORQUE ES SEGUIDO" 

30 PRINT  INK RND*S;"POR "; IN 
K 2; FLASH 1;"Z20MBIS"; INK RNDx*S 


y FLASH 0;" CON LOS QUE NO DEBE 
TROPEZAR" 

390 PRINT ““TAB 7; INK 2; FLASH 
1;"PREPARESE" 

50 PAUSE 300 

60 CELS 

70 BORDER RND*5 
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80 PRINT AT 0,0; INK 1; FLASH 
1;"E";¡AT 21,313 INK 1; FLASH 13" 
s'" 
90 LET X=0: LET Y=1: LET C=4: 
LET D=4 
110 IF INKEY$="" THEN GO TO 11 
0 
120 PRINT AT X,Yz INK 13" " 
130 LET X=X+(INKEY$="8")>-(X>21) 
140 LET Y=Y+C(INKEYS$="8">-(INKEY 
$="5")>)+(Y<0)-(Y>30) 
150 LET P=ATTR (X,Y> 
160 IF P=58 THEN GO TO 300 
141 FOR G=1 TO 2 
162 IF C<20 THEN LET C=RNDx*3+X 
144 IF D<28 THEN LET D=RND*4-3 
+Y 
165 REM PARA OBTENER 0 PULSAR “ 
O” EN /IMODO GRAFICO. 
170 PRINT AT C,D; INK 2;"9" 
171 NEXT G 
175 REM PARA OBTENER €' PULSAR * 
P* EN'MODO GRAFICO. 
180 PRINT AT X,Y;z INK 1;"9" 
190 IF X=21 AND Y=31 THEN GO T 
oO 210 
200 GO TO 110 
210 PRINT AT 21,0; INK 1; FLASH 
1;"BUEN TRABAJO, SOBREVIVIO" 
220 FOR T=1 TO 10 
230 BEEP .1,T: BEEP .2,10-T 
240 NEXT T 
250 STOP 
300 PRINT AT 10,0; INK 1; FLASH 
1;"LE COGIERMN...” 
320 FOR A=1 TAO 10 
330 READ B,C: BEEP B,C 
340 NEXT A 
2390 DATA 1.0 Li 2 340 053 
A AS A PU 
360 STOP 
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ENTRENADOR DE MORSE 


Se puede dominar el Código Morse con la ayuda de este progra- 
ma de John Knight. Cuando ejecute el programa aparecerá un re- 
pertorio brindando la opción de entrar un mensaje en español 
que se presentará en pantalla y se expresará sonoramente en Mor- 
se; o se ofrecerán los sonidos y el código en forma aleatoria. El 
programa da tres oportunidades para que ponga el equivalente en 
castellano, terminando a continuación. 

La rutina de la línea 9000 divide la variable alfanumérica A$ en 
elementos de C$. Para simplificar el proceso posterior, C$ (97) es 
el equivalente de CHR$ (97); es decir, la letra “a”. Este programa 
muestra una buena aplicación del enunciado BEEP. 


O REM ENTRENADOR DE MORSE 
0 REM POR 1 KNiGHT,17982 
Gú SUE +000 
POKE Z34*2,-1 
PRINT O? INK 23 FLASH 1;"HAG 
A UNA SELECCION" 

20 PRIMT 77*"1-CASTELLANO A MO 
RSE" 

90 FRINT **"2-MORSE A CASTELLA 
Nao" 

100 FRINT ““"3-FIN" 

110 1F INKEYS="" THEN GO TO 11 
úl 

120 G£ SUE VAL ¿INKEY$3*1000 

20 60 TG 40 
1000 REM CASTELLANO A MORSE 
1010 PRINT — INK 1177 "CASTELLAN 
DA MORSE" 


J dh 
00d 
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1020 PRINT ** INK 2;"PONGA SU ME 

WNSAJE, DESPUES" 

1030 PRINT “TAB 3; INK 2; FLASH 

i; "PULSE ENTER" 

1040 INPUT $ 

1045 PRINT 

1050 FOR G=1 TO LEN lis 

1060 IF Wé<>" " THEN. GO TO 10%0 

1070 PRINT “+ 

1080 60 TO 1100 

1070 PRINT C$:<CODE MW$c1d)5; 

1092 LET 2$=C$(CODE W$(1)>: GO 5 

UB 5000 

1100 LET Wé=W*$:2 TO > 

1110 NEXT 6 

1120 1F INKEY$="" THEN GO TO 11 

z0 

1130 RETURN 

2000 REM MORSE A CASTELLANO 

2010 PRINT “““"LE DARE UNA LETRA 

En" 

2020 PRINT "MORSE Y TIENE TRES O 

PORTUNIDADESPARÁA DECIR CUAL ES" 

2030 PRINT * INK 2; FLASH 1;"PUL 

SE ENTER CUANDO ESTE LISTO PAR 

4 EMPEZAR" 

2090 IF INKEFR="" THEN GO TO 20 

40 

2050 LET Ss=0 
2=1 


¿060 FOR PO Tu 
2070 LET I=*72+1NT (RND*26> 
¿080 PRINT "QUE LETRA REPRESEN 


TA "¡Oscar 9” 

2090 LET 2$=0$:5: GO SUB 5000 
2100 FOR H=1 TO 3 

2140 INFUT  INK RND*5;"SU OPORTU 
NIDAD "¡K$ 

2150 1F CODE ¿K$>=. THEN GO TO 


¿0 1F HS THEN. FRINT ** INK 1 
¡3 "NO, PRUEBE OTRÁ VEZ" 
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2170 1F H=2 THEN  PRINT: “08D; 

" REPRESENTA "¡CHR$ J 

2175 LET 2$=0$(2: 60 SUB 5000 

2180 NEXT H 

2190 60 TO 2220 

2200 PRINT * INK 2; FLASH 1;"SI, 
ES CORRECTO" 

2210 LET S=S+1 

2220 PRINT “* INK RND*5; "SU PUNT 

UACION ES ";5;" DE UN TOTAL DE 
Waz 


2230 PRINT “* INK 3 y "IIS 
E 


22490 NEXT 2 

2250 RETURN 

3000 STOP 

5000 FOR C=i TO S. 

35010 IF Z$tc="." THEN BEEP .1., 
ú 

53020 1F ¿$£C>="-" THEN BEEFP .S, 
0 

5030 PAUSE 10: NEXT C 

5040 RETURN 


9000 LET Aé=".,-*-,.,.=,.=,*-,.*.%* 
O AR a a dl 
A OS A O a 


a a a 

2010 DIM C$(122,5) 

9020 FOR B=97 TO 122: LET B$="" 
9030 FOR C=1 TO 5 

9040 IF As$cio="x" THEN GO TO %0 
70 

2050 LET Bé=B$+Aé£12: LET A=AéL 
e 19 4 

7060 NEXT C 

2070 LET C$(B>=B$: LET AS=A4$c2 T 
a) 

7080 NEXT B 

70790 RETURN 


INVERSION 


En este programa se da un número de 10 cifras (del O al 9) y hay 
que ponerlas en orden ascendente (es decir: 1234567890) mediante 
inversiones. Se pondrá en claro lo que se quiere decir con inver- 
siones por medio de un ejemplo. Si tuviéramos el número 1234567890 
y se nos pidiera la cifra invertida, pulsariamos el 9, con lo que obten- 
dríamos 1234567908. Si a continuación pulsamos el 8, la presentación 
sería 1234567809. Pulsando otra vez el 9 nos daría el 1234567890 
y habríamos acabado. 

Al final, el ordenador le dirá cuántos pasos ha tenido que dar para 
conseguir el orden correcto. 


1 LET X=0: LET As="" 
10 INK 1: CLS 
20 PRINT TAB 5;"1 "¿: PAUSE 10 
: PRINT O"N "3: PAUSE 10: PRINT " 
Y "31 PAUSE 10: PRINT "E "; 
30 PAUSE 10: PRINT "R ";: PAUS 
E 10: PRINT "S ";: PAUSE 10: PRI 
NT O"] "y: PAUSE 10: PRINT."0 "pg: 
PAUSE 10; PRINT "N " 
40 PRINT “*"DEBE DISPONER EN O 
RDEN CRECIENTE" 
50 PRINT O INK 2; FLASH 13"(123 
45é678 907"; INK 1; FLASH 0," UN N 


$0 PRINT "CIFRAS. SI FUERA EL 
"3 INK 13 FLASH 1:;"1234567098"; 
FLASH 03" Y" 

70 PRINT "CUANDO SE PIDE SU IN 
VERSION" 

30 PRINT "USTED PULSA EL "; IN 
k 2; FLASH 1:"8"; INK 1; FLASH 0 
2", LO CAMBIARIA" 
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50 PRINT "EN EL "3 INK 41; 


H 1;"1234567870"; FLASH 03" Y HA 


BRIA ACABA-DO." 


120 PRINT “* INK 3; FLASH 1;"PU 


LSE CUALQUIER TECLA PARÁ 
NT INUAR" 
130 PAUSE 10000 
140 CLS : POKE 23562,-1 
150 FOR T=0 TO 2 
140 LET L=INT (RND*10)3+48 


170 GO SUB 500: LET A$=A$+CHR$ 


E 
180 NEXT T 
190 PRINT ** INK RNDx*5;As$ 


210 INPUT "NUMERO INVERTIDO ?"; 


R 


220 PRINT — INK RND*5;"NUMERO IN 


VERTIDO - "; FLASH 15R 
230 GO SUB 1000: LET X=X+1 


240 IF A$<>"1234567890" THEN 6 


0 70 090 


250 PRINT **** INK RND*5; FLASH 


13083" "; INK RND*S;A$;" 
RND*S ¡As 


260 FOR T=10 TO 30: BEEP 1/T,T: 


NEXT T 


270 PRINT ** INK RND*5;"LO CONS 


IGUIO EN *;X3" INTENTOS” 
280 STOP 
500 FOR I=1 TO T 


510 IF ASCI=CHR$ L THEN GO TO 


160 

3520 NEXT 1 

530 RETURN 

1000 LET B$=""” 

1010 FOR I=10 TO R STEP -1 
1020 LET Bs=B$+A$( 1) 

1030 NEXT 1 

1040 LET As=A$( TO R-1)+B$ 
1050 RETURN 
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PRESENTACION 
PUBLICITARIA 


Este es un programa de presentación de mensajes adecuado para 
publicidad o para presumir del Spectrum. Primeramente se produce 
una pantalla en un color escogido y con las teclas “5”, “6”, *7” y 
“8” se controla la dirección. La “1” ordena dibujar y la “2'” detiene 
la impresión. Una vez se haya completado la pantalla, se pulsa *S”' 
para parar, poniendo a continuación el mensaje y la línea donde ha 
de aparecer. Este mensaje puede tener cualquier longitud. Una vez se 
haya aplicado se vuelve al repertorio o menú, seleccionándose la 
siguiente opción. Pulsar “S” para detener la presentación de un 
mensaje. 

El programa almacena 10 pantallas pero un solo mensaje debido a 
la variable longitud que puede tener. El programa “Presentación 
publicitaria” (*Advertising Display”*) fue escrito por Paul Toland. 


1 DIM 5%(5,709> 
Z LET Cs+="B" 
5 ELS 


POKE 23692,-1: PRINT AT 21, 
u; 

10 PRINT— INK 1;"1-CREACION DE 
MUEVA PANTALLA" * " 2-PRESENTACION 
PANTALLA EXIST." "3-CAMBIO DE M 
ENSAJE" **9-PARO" 

20 INPUT ¡2 

30 IF €<i OR C>4 THEN G0 TO 2 


390 1F £=9 THEN  STOF 
73 
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50 IF C=3 THEN GO TO 230 


$0 INPUT. INK 2; 


FLASH 1" PANT 


ALLA NUM, % ¿1-53 ¿N0 


70 IF MO<1 OR NO> 
NO THEN GO TO 40 
SO IF C=2 THEN 6 
85 INPUT "COLOR ? 
50 PRINT O INK 23" 


10 OR NO<+1MT 


O TO 300 
'" : LD 


CREACION DE L 


A PRESENTACION PRINCIPAL USA 


NDO 5,6,7,8 PARÁ 
CURSOR" 

100 PRINT * INK 1; 
ARA, 2 PARA ESPAC 
110 LET X=14: LET 
120 LET S$(NO,1 TO 
121 FOR I=1 TO 500 
125 PRINT AT 0,0; 
AT Y,Xj INK 1;  FLAS 
130 LET I$=INKEYS 
190 1F I$="1" THEN 
150 1F I$="2" THEN 
160 LET x=X-(I$="5 
170 LET x=x*+(xX<0)- 
180 LET Y=Y-(1$="? 
170 LET Y=Y+*tY<0)- 
200 LET-S$CNO, Y*32 
210 IF I$="S" THEN 

220 60 TO 125 

230 INPUT  INK 1" 
DESEA QUE APAREZCA 
LE 

2490 IF L<O0 OR L>21 
230 

245 INPUT  INK 13" 
OR. “32 

296 INFUT FLASH 1 
(1-S] 0-N03 "50 

250 INPUT INK Z; 
A SU MENSAJE. ..":;13% 


CONTROLAR EL 


"NTTLIZAR 1 P 
105 PARA PARO" 
Y=4 

209)=" " 

< NEXT 1 

INK DiS$(NO> 5 
al i : 0) + . 


LET C+$="N" 

LET Cg$=" " 
")+(1$="8") 
(x>31> 
")e+(13="6") 
(Y921) 
++ 19=08 

60 TO 230 


EN QUE LINEA 
su FRASE? (0-2 


THEM. GO TG 
«EN QUE EOL 
e DESTELLEde 


FLASH 1;"FONG 


260 LET Lg=" 
"+13+" 

270 GO TO 5 

300 PRINT AT 0,0; INK D¿S$(NO> 
310 FOR I=1 TO LEN L$-32 

320 PRINT AT L,0; INK Z; FLASH 
QjL$(1 TO 1+31) 

330 IF INKEYS$="S" THEN STOP 
335 PAUSE 3 

340 NEXT 1 

350 G0 TO 310 


MENSAJE PUBLICITARIO. ...+. 
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TALONARIO DE CHEQUES 


Este programa le ayudará a asegurar que su cuenta bancaria no se 
halla con número rojos. Le permitirá poner información con respecto 
a su cuenta, le dará opción de cambiar cualquier entrada si es ne- 
cesario y, al final, le presentará información de todos los talones 
extendidos (a quién se entregaron, por qué y la cantidad). El 
programa a continuación presenta el saldo final y, si es necesario, 
le da la buena nueva de que no está en números rojos. Este pro- 
grama fue escrito por Tim Hartnell. 


5 LET A$=CHR$ 8+CHR$ 8+CHR$ 8 
+CHR$ S+CHR$ 8+CHR$ 8+CHR$ 8+CHR 
38 

7 INE Ts CLS 

10 REM SALDO TALONARIO CHEQUES 

20 REM O T HARTNELL 1982 

30 POKE 23692,-1 

40 INPUT  INK 2; FLASH 1;"PONG 
A EL ULTIMO SALDO CONOCIDO ";B 

50 PRINT "SALDO INICIAL PTS."; 
B 


$0 PRINT “"DEPOSITO"A$; OVER 


EINEN o : 
65 PRINT "SALDO"; A$; OVER 1; 1 
NK za A m2 


70 INPUT  INK 2; FLASH 1;"PONG 
A EL DEPOSITO HECHO (0 PARA TERM 
INAR) "3D 

80 IF D=0 THEN GO TO 120 

90 LET B=B+D 

100 PRINT D,B 
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110 60 TO 70 

120 PRINT “"EL SALDO ANTERIOR A 

LOS ULTIMOS CHEQUES ERA DE "; 1 
NK 2; FLASH 1;B;" PTS." 

130 INPUT  INK 2; FLASH 1;"CUAN 
TOS CHEQUES HA EXTENDIDO DESD 
E ENTONCES? "¿N 

140 DIM A$(N,22)>: DIM BN) 

150 FOR G=1 TON 

160 INPUT  INK 2; FLASH 1;"PONG 
A EL NOMBRE DEL RECEPTOR " ¿N$ 

170 INPUT  INK 2; FLASH 1;"PONG 
A LA RAZON DEL CHEQUE "¿M$ 

180 LET AS(G)=N$+" -"+M$ 

190 INPUT  INK 2; FLASH 1;"CANT 
IDAD EXTENDIDA? ";Q 

200 LET B(G>=0 

210 PRINT “A$(G);"- "3 INK 2; F 
LASH 1;"PTS.";¡BG) 

220 INPUT  INK 2;"SI ESTO ES CO 
RRECTO PULSE ENTER,Y SI NO, PULS 
E “E* " ¡US$ 

230 IF Us$="E" THEN GO TO 160 

240 LET B=B-0 

250 NEXT 6 

260 PRINT ““““"ESTO ES UN REGIS 
TRO DE SUS "“"CHEQUES HASTA LA F 
ECHA: " 

RI PRI 

280 PRINT “* 

290 FOR G=1 TON 


300 PRINT A$tG>3" —- "5 INK 2; F 
LASH 13"PTS." 3BC06> 

310 NEXT 6 

319 "PRINT M2 co +=.=> 


320 PRINT “"EL SALDO FINAL ES " 
SS CINK: 25 -FLASA 13B7" Pb 
LIRA 
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326 POKE 23692,-1 

330 PRINT ““"ENTRE “R” PARA EJE 
CUTAR EL PROGRAMA EN BORRAD 
LS A 

350 PRINT "PARA UNA PRESENTACIO 
N DETALLADA" 

360 PRINT "DE LOS CHEQUES EXTEN 
DIDOUS,” 

380 PRINT "O “E” PARA TERMINAR" 
390 INPUT U$ 

400 IF U$="R" THEN RUN 

420 IF U$="P" THEN GO TO 450 
430 IF U$="E" THEN PRINT  INK 
3; FLASH 1;TAB 7;"PROGRAMA TERMI 
NADO" : STOP 

440 GO TO 390 

450 REM x*IMPRESORAxX* 

460 FOR G=1 TON 

470 LPRINT A$(G>,"PTS.";B(6) 
480 NEXT 6 

490 GO TO 330 


CONDUCCION DIFICIL 


En este programa escrito por Said Hassan, se tiene que conducir 
un coche verde por una pista llena de curvas. El automóvil des- 
ciende por la pantalla. Después de completar cada sección de pista, 
la pantalla se borra y aparece otra. El programa proporciona una 
elevada puntuación. 


2 FOR T=0 TO 7: READ A,B 
3 POKE USR "P"+T,A: POKE USR 


SOS+E-B 
4 NEXT T 
5 DATA -170,255,85,255,170,80, 
85,60 
ó DATA 170,60,85,60,170,255,8 
5,258 
7 LET C$="CRASH"” 
10 LET H=0 
20 LET s=0 
25 LET X=5: LET A=3: CLS 
30 FOR N=0 TO 20 
25 REM PARA OBTENER Mi PULSE “P 
” EN MODO GRAFICO. 
40 PRINT TAB A; INK 13"%"; INK 
2 ; "RS" INKO 1 
50 LET A=A+C(A<7? AND A)ESGN (RN 
D-.S5)+(NOT A)-(A=7) 
60 NEXT N 
70 LET A=X 
80 FOR N=1 TO 20 
90 LET P=ATTR (N,X) 
105 REM PARÁ OBTENER M PULSE “0 
* EN MODO GRAFICO. 
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110 PRINT AT N-1,A;5 INK 2;"%";A 
T N,X; INK 4;"0E" 

120 IF P=57 THEN GO TO 170 

130 LET A=X 

140 LET X=X+(INKEY$="M" )-( INKEY 
$="2") 

145 FOR J=1 TO 30: NEXT J 

150 NEXT N 

160 LET S=S+N: GO TO 25 

170 LET S=S+N 

175 FOR A=1 TO 10: BORDER RND*7 
: BEEP .1,A-10 

180 PRINT AT 2,10+A; INK RNDx5; 
C$CA) 

183 NEXT A 

185 PRINT AT 4,11;"PUNTUACION=" 
¡S 

, 

190 IF H<S THEN LET H=S 

200 PRINT AT 6,11; INK 1; FLASH 

1; "PUNTUACION MAX.=";H 

210 INPUT "QUIERE JUGAR OTRA VE 
Z 7? "¡As 

230 IF A$(1)="S" THEN GO TO 20 


RÁSH 
PUNTUACION=1 95 
PUNTUACION MAX.=175 
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CALCULOS Y 
DEMOSTRACIONES 


El Spectrum puede producir color, sonidos y posee excelentes 
posibilidades para los gráficos; también es útil en el campo matemáti- 
co. Se puede conseguir que realice tareas complejas y de gran utili- 
dad. Los siguientes programas dan una indicación de la variedad de 
formas en que es posible utilizar el Spectrum. 

El primer programa es muy sencillo, calcula el resto de una 
división. Se emplea el signo usual de la división que se define en las 
líneas 3-5. 

El segundo programa es uno de estadística que calcula el área 
bajo la curva de una Distribución Normal hasta el punto señalado por 
la variable X en la línea 20. El error es menor que 10-, 

En tercer lugar viene un programa que es una demostración. Uti- 
liza la espléndida capacidad del Spectrum para manejar cadenas lo 
que permite a los enunciados contar palabras desde cero hasta 99. 
En cada acción de contaje se produce un sonido. 

El cuarto programa convierte temperaturas en grados Centígrados 
a Fahrenheit. 

El quinto dibujo un gráfico de conversión utilizando una escala 
de color fácil de seguir que pasa las temperaturas de Fahrenheit a 
Centígrados. 

En el sexto programa se calcula cuanto se tiene que pagar por un 
préstamo cuando la cantidad y la tasa de interés cambian. 


1] REM *CALCULO DEL RESTOx* 

2 REM EJECUTENSE LÁS LINEAS 2 
4 ANTES DE APLICAR EL RESTO DEL 
PROGRAMA . 
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3 FOR T=0 TO 7: READ A 
4 POKE USR "P"+T,A: NEXT T 
5 DATA 24,24,0,255,255,0,24,2 
4 
15 POKE 23692,-1 
20 INPUT  INK 1;"PONGA EL NUME 
RO QUE HA DE DIVI- DIRSE "¡A 
30 INPUT € INK 2;4;" DIVIDIDO 
ENTRE ? ">;B 
40 PRINT ” INK RND*5;A;" T ";B 
¡"o = "¡INT C(A/B>;" RESTO ";¡A-Bx*I1 
NT (A/B) 
$0 GO TO 20 


3212 + 32 = 100 RESTO 12 


234 + 9 = 26 RESTO 0 


213 + 6 = 35 RESTO 3 


S REM *DISTRIBUCION NURMAL+* 

7 POKE 23692,-1 

10 PRINT.  INK 1;"DISTRIBUCION 
NORMAL" 

20 INPUT — INK 1; FLASH 1"X="; 


30 LET T=1/(1+0.231642x*X> 
40 LET G=1/SQR (2x*PI>*EXP (-X1 


50 LET A=0.3179382: LET B=-0.35 
$0 LET C=1.781480: LET D=-1,82 
70 LET E=1.330274 

30 PRINT — INK RND*5;"PX=";1-Qx 


CAXTRB*T|2+CXT43+Dx*T19+Ex*T15) 
90 60 TO 10 


5 POKE 23692,-1: PRINT AT 21, 


, 
10 LET T$=" CERO UNO DOS 
TRES CUATRO CINCO SEIS S 
IETE OCHO NUEVE ” 
20 FOR 2=0 TO 9: FOR X=0 TO 9 
30 LET K=1+7%2 
490 IF 2=0 THEN LET Q$="": GO 


50 LET Qé$=T$(K TO K+6) 

60 LET K=1+7%X 

70 LET Q$=0$+T$(K TO K+ó6) 

80 PRINT — INK RND*S5;0Q$ 

85 FOR T=1 TO 2*10+X: BEEP .l, 
10: NEXT T 

90 NEXT X2 NEXT Z 


UNO CERO 
UNO UNO 
UNO DOS 
UNO TRES 
UNO CUATRO 
UNO CINCO 
UNO SEIS 
UNO SIETE 
UNO OCHO 
UNO NUEVE 
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1 REM CENTIGRADOS Á FAHRENHEI 


2 REM EJECUTAR LAS LINEAS 3-5 
ANTES DE APLICAR EL RESTO DEL 
PROGRAMA 

3 FOR T=0 TO 7: READ A 

4 POKE USR "P"+T,A: NEXT T 

5 DATA 64,160,64,0,0.0,0,0 

10 POKE 23692,-1: PRINT AT 20, 

0; 

20 INPUT  INK 2; FLASH 1;"TEMP 

ERATURA EN GRADOS CENT.?";C 

30 LET F=1.8x*C+32 
35 REM PARA OBTENER P PULSAR “ 

P” EN MODO GRAFICO. 

50 PRINT ”“ INK RNDx*5;C;"PCENTI 

GRADOS = "¡F;"* FAHRENHEIT" 

60 GO TO 20 


100* CENTIGRADOS = 212* FAHRENHEIT 


50* CENTIGRADOS = 122? FAHRENHEIT 


32* CENTIGRADOS 89.6? FAHRENHEIT 


12* CENTIGRADOS 


53.6* FAHRENHEIT 


10 REM GRAFICO DE CONWER=ICN 

20 REM FAHEENH. A CENTIGRADOS 

30 FOR F=30 TO 220 STEP 10 

30 IF F<100 THEN PRINT " "; 

50 PRINT Fs 

60 FOR C=1 TO 5x*cF-323/95 

65 IF C-rá-1=INT ¿Eré-1)3 THEN 
LET I=0 

¿6 LET I=1+1 

FO PRINT O INK l;"e"; 

75 NEXT € 

7é LET I=0: PRINT 

380 NEXT F 

$0 PRINT “TAB 3:"1020304050607? 
asoso01io00o" 


naa nanasaa 
Ossa. 
DOosansaaasa9s 
Osona nasnssu 
Dadun aaauna 
CO 
ERA AAA 
AENA AAA 
CUA AAA AAA 
TEEN AAA aaa] 
SEUA AAA 


102030405050 708090100 


E 

12 
LI 
14 
i3 
16 
Li 


CN 
MPOVO 


2 


INK 1: CLS 


1;"PONG 


15" PONG 


1; "PONG 
EN ANUA 


¿100 


"sB 


3 POKE 23622,-1: PRINT AT 20, 
ú 
10 PRINT *“" INTERESES SOBRE EL 
PRESTAMO" 
20 IMPUT — INK 2; FLASH 
A LA CANTIDAD "¡4 
30 INPUT — INK 3; FLASH 
A LA TASA DE INTERES "31 
40 LET I=1/100 
50 INPUT — INK 4; FLASH 
A EL TIEMPO DEL PRESTAMO 
LIDADES "Y 
60 LET Y=12x*Y 
7O LET B=4*(1/12/(1-(1+£1/12> 
ESTO 
30 LET E=IMT ¿Bx*100+.55 
50 PRINT "EL PAGO MENSUAL ES D 
E INK.- 27 PLASH IUPTS: 
100 1F INKEY$="" THEN GO TO 10 
Ú 
110 60 TO 10 


CLASIFICACION 
ALFABETICA 


Este programa clasifica palabras o frases por orden alfabético. 
En primer lugar se pone el número de elementos (línea 10) que 
se desea clasificar y a continuación las palabras una por una (línea 
50), pulsando ENTER después de cada entrada. 


10 REM CLASIFICACION 

20 INPUT INK 2; FLASH 1;"PONG 
A NUM. DE ELEMENTOS A CLASI-FICA 
RO"uN 

30 DIM S$(N+1,15)> 

40 FOR T=1 TON 

50 INPUT —INK RND*S; ("ELEMENTO 

"aTp" o "93 LINE S$cT)> 

¿0 NEXT T 

70 PRINT O INK RND*5; "ESPERE... 
ESTOY CLASIFICANDO" 

30 FOR I=1 TO N: FOR T=1 TON 

85 LET B$=S$(T) 

90 1F Sé T+15=S$(T)> THEN GO 
TO 110 

100 GO TO 130 

110 LET S$cT>=35$(T+1> 

120 LET S$(T+1>=B3% 

130 NEXT Ti: NEXT 1 

190 FOR T=N TO 1 STEP -1 

150 PRINT  INK RND*S:¡S5$(T>) 

160 NEXT T 
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CLASIFICACION DE DATOS 


Este programa clasifica números en orden creciente y después 
los presenta. 


S LET Y=1: LET X=5: LET A=5 

10 INPUT  INK RND*S¿ FLASH 1” 
CUANTOS ELEMENTOS DESEA" "CLASIF 
ICAR?  "¿N 

20 DIM ALN+1> 

30 FOR G=1 TON 

30 IMPUT  INK RND*S; FLASH 13: 
"ELEMENTO "¡G¿" ">; AG) 

45 NEXT 6 

47 FOR G=1 TO N: FOR T=1 TON 

S0 IF ACT+1><ACT)> THEN GO TO 
80 

$0 LET B=AcT> 

70 LET ALT)=ACT+1>: LET ACT+1) 
=B 

80 NEXT T: NEXT 6 

50 FOR T=N TO 1 STEP -1 

100 PRINT  INK RND*S; "ELEMENTO 
"MEN=T+1 3010" ALT) 

110 NEXT T 
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RAICES CUADRADAS 


Este programa determinará la raíz cuadrada de cualquier número 
que se aplique. En primer lugar, hace una hipótesis (línea 50) 
eligiendo un valor comprendido entre cero y el número aplicado. 
El ordenador a continuación depura la hipótesis mediante divisiones 
sucesivas comprobando cada vez la diferencia con la respuesta co- 
rrecta. La línea 80 no forma parte del sistema de comprobación 
del ordenador, tiene por objeto simplemente que se pueda ver su ac- 
ción en la búsqueda de la respuesta correcta (verifíquese suprimiendo 
dicha línea). 

Ya que el Spectrum posee la función SOR (Raíz Cuadrada), 
este programa tiene poca utilidad pero es fascinante observar la 
rapidez con que se va acercando a la solución. El programa fue 
escrito por Tim Hartnell. 


10 REM CALCULADOR DE RAICES CU 


ADRADAS 
20 REM O HARTMELL 1982 
30 INPUT INE RND*S3; FLASH 15" 


DIGA EL NUMERO QUE DESEA QUE 
DETERMINE SU RAIZ CUADRADA "¡B 

40 IF E<0 THEN GO TO 30 

45 PRINT  INK 1; FLASH 1;"EL ON 
UMERO ES "¡6 

S0 LET ASINT (RND*B5+1 

60 LET X=B/A: LET Y=(X+A>/2 

70 PRINT  INK RND*S;Y 

S0 PRINT  INK RND*5;"EL ERROR 
ES "¡ABS (Y-SGR 6) 

20 1F A=Y THEN 60 TO 110 
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90 


100 LET A=Y: GO TO 46 
110 PRINT ** INK RIND*S5;3 FLASH 1 
¡"LA RAIZ CUADRADA ES "¡Y 


EL NUMERO ES 10 


3.5 

EL ERROR ES 0.33772234 
3.1785719 

EL ERROR ES .016293748 
3.1623194 


EL ERROR ES .000041761436 
3.1622777? 

EL ERROR ES 0 

3.1622777 

EL ERROR ES 0 


LA RAIZ CUADRADA ES 23.1422777 


PROBABILIDAD 


El siguiente programa de Martin Frobisher presenta una tabla y un 
gráfico que muestran las posibles tiradas de tres dados. La primera 
columna de la tabla da el total de los tres dados, la segunda ofrece 
el número de combinaciones posibles que pueden hacer este total y 
la tercera, la probabilidad de la aparición de dicho total. 

El gráfico que aparece al lado de la tabla es la curva de Distri- 
bución Normal y muestra la probabilidad de que los dados produzcan 
un total determinado. 


LET I=RND*S 

FOR E=3 TO 18 

PRINT AT B,20; PÁAPE? Jq" 

6 NEXT E 

DiM AciS) 

FOR B=1 TO á 

FOUR C=1 TO á 

FOR D=1 TO á 

LET E=B+C+D 

LET ALE3=ACE>+1 

NEXT 0: NEXT Cs NEXT E 

FOR B=3 Ta 18 

FRINT AT E,O0;E¡TAB S;¡A6tB>T 
¡INT 121S5/ALBDO ¡TAB 12:3" A 


Qt 


hi 


o 
a Be] 


on bu 
O Oda 


“000 0 tí 
(2 es 2 es ] 


AB 
pa 
100 PLOT INE 7, ,2RB+ZÓ00, 0+3AL 
E> 
110 NEXT E 


ue 
Ca 
y 
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92 


ds 


E 


Nan 


fr 


=j 


O A “Q co e] De 


o 


, 
z 

ó 
1 


1u 


> 
i 
1 
3 


o 


bei” 


Cr. 


TIDIEDETIDDITI 


h 


A 


CORRELACION Y REGRESION 


El programa acepta primeramente los valores de X y para expre- 
sar el fin de los datos se entra 999; después acepta los valores de Y. 

Se calculan a continuación los varios subtotales (suma de X, de 
Y, etc.), el coeficiente de correlación de Pearson y la ecuación de 
regresión (lineal). 

En este momento pulse cualquier tecla para continuar. Podrá in- 
terpolar o extrapolar esta ecuación al poner los valores de X, ter- 
minando con la entrada 999. 

En cada fase del programa se da la opción de pasar la informa- 
ción a la impresora, suponiendo que ha respondido con «S» a la 
pregunta ¿Conectada la impresora? Puede hacerse pasar nuevamente 
el programa con sólo pulsar ENTER, o hacerlo detener pulsando «N» 
y ENTER. Este programa fue escrito por Paul Toland. 


1 INK 1: CLS 
5 POKE 23692,-1: PRINT AT 20, 

0; 
10 PRINT "CORRELACION/REGRESIO 
N" E 
20 INPUT "ESTA CONECTADA LA IM 
PRESORA? "¡P$ 

30 GO TO ?0 

31 IF P$="N" THEN RETURN 

33 INPUT FLASH 1;"QUIERE IMPR 
IMIR ESTA PAGINA?" ¡As 

90 IF A$<>"S" THEN RETURN 

50 COPY 

$0 RETURN 

70 DIM X(20)>: DIM Y(20) 
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30 PRINT “7 INK RND*S; "PONGA L 
OS VALORES DE X POR ORDEN - 
TERMINE CON 999" 

90 FOR I=1 TO 20 

100 INPUT  INK 1; "VALOR ";13" 
P)ExXcI) 

110 1F X:<1)=999 THEN 60 TO 150 
120 NEXT 1 

190 PRINT “7 INK 2; FLASH 1:;"EL 
MAXIMO PERMITIDO ES 20" 

150 LET I=1-1 

160 PRINT “AT 21,12;1:;"WALORES 
170 PRINT “”* INK RND*S5; "PONGA L 
OS VALORES DE Y POR ORDEN " 
180 FOR J=1 TO 1 

190 INPUT  INK 1¿("VALOR "Jj" 
"3 YD) 

200 NEXT J 

210 GO SUB 31 

220 LET C=0: LET D=0 

225 LET E=0: LET F=0: LET 6=0 
230 FOR J=1 TO 1 

240 LET C=C+XxC<J> 

245 LET D=D+Y<J> 

250 LET E=E+XcJ>*Xc0J) 

2680 LET F=F+Y<DR YC 

270 LET G=G+*XcJD)e YC) 

220 NEXT J 

290 LET R=cI*G-CXD)4SQR (( 1IXE-C 
2D CIRF-DAPZ5) 

300 CLS 

310 PRINT "SUMA X "¡0 INK 2:"S 
UMA Y "Dj" INK 3;"SUMA DE xfz " 
¡El INK 4;"SUMA DE Y42 "¡F;" INE 
5; "SUMA DE XY “¡6 

320 PRINT “"COEFICIENTE DE CORR 
ELACION DE PEARSON" 

330 PRINT TAB 4;R 

390 PRINT “"COEFICIENTE DE CETE 
RMINACION" 


0] 
[es] 


4 Gr 


SO 

ás 

= 
> 


370 


a E 


PRINT TAB £4;R*R 

LET B=C1%FG-CRD3/4tIRAE-CP2) 
LET A=C-1-D-I*B 

PRINT "LA ECUACION LINEAL 


DE REGRESION:" 


30 


PRINTO TINE RND*S¡"Y="¡A43< "+ 


"AND SGN B>-120"-" AND SGN B<0 
JJABS Bj" x" 


290 IF INKEY$="" THEN GO TO 39 
ú 

400 GO SUB 31 

910 ELS 

4920 PRINT "INTERPOLACION/EXTRAP 
OLAC ION 999 PARA TERMIN 
AR "n 

930 PRINT " X e 
940 INPUT Xx 

450 1F xX=92?9 THEN GO TO 9%0 
450 LET Y=A4+B+*X 

970 PRINT X¡TAB 10; 

480 60 TO 44u 

370 GO SUB 31 

500 INPUT — INK 2; FLASH 1:;"OTRA 
VEZ Y "¡Ar 

510 IF Astc13><>"N" THEN RUN 


COMBINACIONES Y 
PERMUTACIONES 


Este programa de Said Hassan, calcula combinaciones y permuta- 
ciones. Se le pregunta qué cálculo desea realizar. 


Las líneas 300-400 comprueban que los datos de entrada son nu- 
méricos y se hallan dentro de las posibilidades de la máquina. Las 
permutaciones de n elementos tomados de r en r viene dada por 
la fórmula: 


n! 


nPr = ——— 
(n > r)! 


Por ejemplo, considérese cinco cartas diferentes de una baraja 
que tienen que ordenarse en grupos de 3. (n = 5, r = 3, y 5P3 = 60). 

Las combinaciones de tomar n elementos de r en r se expresa 
por la fórmula: 


n! 


nCr = -——— 
(n — mI rl 


¿De cuántas maneras pueden seleccionarse tres títulos de libros 
de entre cinco de ellos? 


503 = 10 
10 PRINT— INK RND*=3;¡ FLASH 15" 


COMBINACIONES *C*"*"PERMUTACIONE 
7 P- $" 


 ñ 
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20 LET AR=INKEYS 
30 1F Af="" OR AB<"F" AND ÁAB< 
2"E” THEN 60 TD 20 


390 PRINT — INE 1; FLÁSA 13 ""PON. 


GA li" 
50 60 SUB 300: LET N=VAL H$ 
7Ó PRINT. INK 2; FLASH 1;"PONG 
Aa E” 
30 60 SUE 300: LET R=VAL Ns$ 
90 IF R¿=N THEN GO TO 120 
100 PRINT * INK RND*S; FLASH 1; 
"DEMASIADO ALTO" 
1104 60 TO 20 
120 PRINT ** INK RND*S5;"CALCULA 
NDO" 
130 LET 2=N 
1353 60 SUB 3410 
140 LET B=Aá: LET Z=N-R 
150 60 SUB 3410 
155 LET C=A 
150 IF As="FP" THEN 60 TO 195 
170 LET 2=R 
180 GO SUB 410 
190 LET C=CxA 
1:23 ELS 
200 PRINTO INK RND*S¿N¿" "¡Aas3" 
A A e E 
210 1F INKEY$="" THEN GO TO 21 
a 
220 ELS $ RUN 
300 INPUT Ns 
310 IF Né="" THEN GO TO 300 
2320 EEES 
330 FOR X=1 TO LEN Ns$ 
390 IF ¿Nécxoo="0" AND N$cx)<=" 
"3 THEN 60 TO 370 
350 PRINT  INK RND*S¡"ERROR "; 
FLASH 1¿"VWOELVA A ENTRAR DATOS" 
360 60 TO 300 
370 NEXT X 
390 1F VAL N$:<39 THEN RETURN 


O 
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98 


20 


“ÁLTO 


PRINT  TINK RND*S3;3 "DEMASIADO 
"4 FLASH 13 "VUELVA A ENTRÁ 


R —DAaTas" 
400 
4410 
920 
4930 
430 
4950 


GO TO 00 
LET A=1 

FOR <=1 TO Z 
LET ASAXX 
NEXT Xx 
RETURN 


NUMEROS PRIMOS 


Este programa, como su título sugiere, genera números primos. 
Cuando lo ejecute se le preguntará cuántos números primos desea 
que el ordenador genere para usted. A continuación pasará a deter- 
minarlos, presentándolos en pantalla a medida que los va obteniendo. 
Si se desea un registro permanente de su Spectrum, cambie el 
enunciado de la línea 110 para que sea LPRINT d,. 


10 LET X=1: LET Y=2: LET D=3 

20 INPUT INK 2; FLASH 1:"CUAN 
TOS NUMEROS PRIMOS ?";4 

30 PRINT  INK 2; FLASH 134;" P 
RIMOS"; FLASH 0%1,2,2, 

40 FOR B=x TO A-D 

SO LET D=D+Y: LET C=Y+x 

60 LET E=INT £2D/C>: LET F=D-Ex 


70 1F F=0 THEN 60 Ta s0 
39 IF C>=E THEN GO TO 110 
0 LET C=C+Y 

100 60 TQ «q 

110 PRINT  INK END*S5;D, 

120 NEXT 6 
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SISTEMAS DE ECUACIONES 


Este programa, de Paul Stevens, resuelve sistemas de ecuaciones 
de la forma: 


ax + bY=e 
cX + dY =f 


Cuando se ejecuta el programa se pide que ponga los valores de 
las constantes y después se calculan los de X e Y. 


3 REM SISTEMAS DE ECUACIONES 
óé REM. POR PAUL STEVENS 
10 PRINT AT 0,0;"SISTEMAS DE E 


CUACIONES" 

20 PRINT AT 0,0; OVER 1; INK RE 
E AA " 

30 PRINT  ITNK RNDx*S y" "Ax+BY=E 
.n.0u CXx+ Dy=F n 


390 INPUT  INK 1; FLASH 1;"A="; 
A, INK 1; FLASH 1;"B="3B, INK 1; 
FLASH 1;"E="¿E 
SO INPUT  INK 2; FLASH 1;"C="; 
C, INK 2; FLASH 13"D="3D, INK 2; 
FLASH 1;"F=";F 
$0 LET G=(CxB)-(DxA) 
70 LET H=(-Dx*E)+(BxF) 
80 LET I=(C*E)+(-AXF) 
90 LET X=H/G: LET Y=1/G 
100 PRINT ““ INK RNDXS;A¡"X+";B 
quy=" sE 


100 


110 PRINT % INK RND*S¡0;"X+"3D 
qry=" ¡F 

120 PRINT ““* INK 1:"LA RESPUES 
TA ES "; FLASH 13" X="3X 

130 PRINT TAB 14; FLASH 1:" Y=" 
Y 

190 INPUT INK 2; FLASH 1:;"0TRA 
VEZ? "¡As 

150 IF A$t1)="S" THEN RUN 


SISTEMAS DE ECUACIUNES 


Axt+Er=E 
Cx+DY=F 


Z2xtoar=14 


LA RESPLIESTA ES x=4 
Y=Z 
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SOLUCION DE ECUACIONES 


Esta rutina, escrita por Jeremy Ruston, utiliza el método de New- 
ton para resolver ecuaciones. Póngase la ecuación que se desea re- 
solver para X cuando aparezca la indicación de «Ponga una función». 
Después, en respuesta a «Ponga un valor inicial», introdúzcase una 
posición de partida para que desarrolle los cálculos el ordenador. 
Este valor debe ser lo más próximo posible a una solución esperada, 
y si existe más de una, a la que pudiera interesar. Pulsar ENTER a 
continuación y se observará cómo el ordenador se va aproximando 
a la solución. 

Como ensayo pruébese la función x? — 5 (para hallar la raíz cua- 
drada de 5) o xe — 27,6 (para hallar la raíz cúbica de 27,6). 


1 REM METODG DE NEWTON PARÉs 
RESOLVER ECUACIONES 
2 REM POR JEREMY RUSTON 
10 IWNFUT  INK 2; FLASH 1;"FONG 
A UNA FUNCION "3; LINE FS 
20 PRINT  INK RND*S5: "FUNCION: " 
¡FS 
30 INPUT INK 1; FLASH 1" PONG 
A UN VALOR INICIAL ",S 
390 PRIMNT  IMK RNDeS "VALOR INI 
CIAL:"S 
SÓ INPUT. INK 33 FLASH 1"PONG 
A EL ERROR MAXIMO ";¡ERR 
¿0 PRINTO INK ENDS "ERROR MAx 
IMO:"¡ERR 
ZO PRIMT AT 10,10; Tur Ji x="35 
so LET x=3 
0 IF ABS (VAL ¿FRI><ERE THEN 
STOP 
100 LET T=VAL Fé: LET X=x+ 00001 
150 LET E=CUAL ¿Fsi-T2:0,00001 
150 LET S=5-T/E 
170 60 TO 70 
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TRAZAR Y DIBUJAR 


Los siguientes programas ponen en evidencia la capacidad del 
Spectrum para trazar y dibujar. El primero dibuja una serie de circun- 
ferencias usando el enunciado «Circle» para componer un cono. Prué- 
bese a cambiar los valores de t, a y b y véase lo que sucede. 

El segundo programa dibuja una línea de longitud aleatoria con 
colores también aleatorios desde las cuatro esquinas de la pantalla. 

El tercer programa traza una línea curva formada por rectas. Se 
aplica el color deseado y el espesor de la malla. Su Spectrum hace el 
resto. 

El cuarto dibuja una serie de senoides que están dispuestas para 
dar el resultado que se ve en el modelo ejecutado. Después van desa- 
pareciendo curva por curva hasta dejar la pantalla sin nada. Pruébese 
a cambiar el tamaño del escalonamiento (STEP) y los valores 20 y 40 
de las líneas 40 y 50. 

En quinto lugar se representa cualquier gráfica después de poner 
una ecuación en la línea 10. 

El sexto programa dibuja circunferencias en diferentes coorde- 
nadas y puntos de arranque y final que permiten obtener círculos só- 
lidos solapados como el modelo mostrado. 


103 


1 BORDER RNDx*6: PAPER RND*6á: 
INK 9: CLS 
10 LET A=1: LET B=1 
20 FOR T=1 TO 185 STEP 5 
30 CIRCLE T,A,B 
40 LET A=A+2: LET B=B+2 


50 NEXT T 
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16 PLOT 0,0: DRNA). —IMK RND*S;,R 
NDEZS5O, RAND*175 

20 PLOT 255,175: DRA). TINE END 
*ó -RNDXZ55, -FND*i75 

30 PLOT 255,0: DRA) TNK RMNDx*S 


E 


¡—PND*255,RNDx*175 
40 PLOT 0,175: DRA 
¡ENDZSS,—RNDx*17S 
$0 60 TO 10 


IMNK END*á 
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10 INPUT "COLOR DE LA FIGURA 7 
20 BORDER 7: PAPER 2: INK Ci C 


30 IMFUT "MARQUE Un NUMERO DE 
1-25 (1 ES FINO, 25 ES GRUESO) 


30 LET A=0 
SO PLOT 0,175: DRAW 0,-175 


PLOT 0,0: DRAW 173,0 
O POR TELS 10 0 STEP > =8 


PLOT 0,7: DRAW A,-T 
D LET A=4+E 
O NEXT T 


O 000 y Un 
a] 


ho 


O + 
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10 LET X=RND*S: PAPER X: INK 9 
BORDER X: CLS 
15 FOR D=1 TO 2 
20 FOR A=0 TO 50 STEP 10 
30 FOR X=0 TO 10 STEP .05 
40 IF D=1 THEN PLOT 20x*X+A,40 
*SIN X+40+A 

50 IF D=2 THEN PLOT OVER 152 
OxXX+A,40*SIN X+40+A 

60 NEXT X: NEXT A: NEXT D 


10 INPUT  INK 2;"PONGASE UNA F 
UNCION DE X "; LINE As 

15 LET C=RNDx*S: PAPER C: BORDE 
RC: INK 9: CLS 

20 PLOT 0,175: DRAW 0,-175: DR 
AW 255,0 

30 FOR X=0 TO 255 

40 LET Y=VAL AS 

S0 IF X>255 OR Y>175 THEN GO 
TO 80 

$0 PLOT X,Y 

70 NEXT X 

80 PRINT AT 19,10; FLASH 1;"Y= 
":as 
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1 REM DIBUJAR CIRCUNFERENCIA 
10 INPUT "ABCISA X ?";X: INPUT 


"ORDENADA Y ?";Y 

15 INPUT "INICIACION (PRIMER R 
ADIO) ?";S 

20 INPUT "TERMINACION C(RADIO F 


30 INPUT “COLOR ";C 

40 FOR 2=S TO F 

50 CIRCLE —INK Cj¿X,Y,Z2 
40 NEXT 2 

70 GO TO 10 


TONALIDADES 
CROMATICAS 


Este programa proporciona un modelo en continua evolución 


al presentar una cuadrado azul si llega a otro negro y viceversa. 


lo RE'M TONALIDADES POR 
O HARIJDOD 
S FOR T=06 TO 21 


¿ PRIrMIT "IS 
a 


? NEXT T 
10 LET ar="N" 


20 LET ¿=RPHD*21: LET A=RNDx*21: 


LET B=FND*31 


30 IF ABS ¿¿-B:=21 THEN 


¿=B-1( 
90 FOR T=0 TO E 
30 LET C=4 
¿0 LET PSATTR ¿5,.T2 


¿0 1F P=3á THEN  LET G=1 


130 NEXT T 
140 66 TO Zu 


S0 PRINT AT ATi INK Dias 

90 LET G=( 
100 LET PSATTR ABS (2-T>,B-10> 
110 1F P=Só6 THEN  LET C=1 
120 PRINT AT ABS £2-13,B-1; 
Dias 


109 


GRABADOR 


Este pequeño programa hace que con las teclas “5”, “6”, *7" y 
“8” se trace una fina línea alrededor de la pantalla haciendo dibujos 
a su elección. 

Al ejecutar el programa la línea continuará moviéndose hasta que 
se pulse otra tecla. 


1 LET Áé="": LET A=127%:1 LET 8 

=87 

10 IF INKEY$<>"" THEN  LET At= 
INKEYS 

20d LET E=sB+iáAt="7?")-(Af="6"> 

30 LET A=At+t(A$="38")-(At="5") 

490 IF A=2536 OR A=0 THEN LET A 
=ABS (A-29559) 

50 I1F E=176 OR B=0 THEN. LET E 
=ABS (B-173) 

£0 FLOT A,B: 60 TO 10 
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MUESTRARIO DE COLORES 


El programa permite que se compongan grandes combinaciones 
de colores en la pantalla. Se controla la dirección mediante las teclas 
de la “5” a la “8”. Se cambian los caracteres pulsando “H”; 
el color varía pulsando *”C”, poniendo a continuación el nuevo. 
Se pueden producir destellos con la tecla **F'” y suprimirlos con la **N”. 


10 PREM MUESTRARIO DE COLORES 
20 REM POR D HARWOCD 


30 PRINT INK 1;TAB 6; "MUESTRA 
RIO DE COLORES” 

490 PRINT ** INK RND*S5;"EFECTUE 

EL MOVIMIENTO CON LOS CONTROL 
ES DEL CURSOR" 

30 PRINT ** INK END*S3;3"SI SE D 
ESEÁ CAMBIAR DE COLOR, $ 

é0 PRINT INK END*=33"PULSE "; 
INK 2; FLASH 153"C"3 INK RND*S5; F 
LASH 05" Y DESPUES SU CODIGO” 

ZA PRINT ** INK RND*S:"SI DESE 
A CAMBIAR EL” 

20 PRINT  INK RND*5; "CARÁCTER, 

PULSE *3 INK. Z3 PLASH 13*H*"35 EN 
K RND*S¿ FLASH 0;" Y DESPUES EL 
CARÁCTER" 

85 PRINT ** INK RND*5;"SI SE D 
ESEA DESTELLEO PULSAR" 

386 PRINT.— INK 2; FLASH 13"F"; 
INE RND*S¡ FLASH 0" CPARÁÉ SUPRI 
MIRLO PULSAR "; INK 2; FLASH 13" 
N"i FLASH 033" 

90 PRINT “%INK 13 FLASH 1:;"PUL 
SAR CUALQUIER TECLA PARA CON 
TINURR" 

100 PALISE 10000: CLS 

110 LET X=10: LET Y=10: LET B=0 
11 


2: LET He="Bp" 
ar xXx, Ihr CEC FLASH 


18] 
A 

en] 
r 
m 
— 
1 
+ 
A 
% 
m 
Hi 
tú 
0% 

' 
hs 
5 
mr 


He 


THEM LET Y=0C 
2 THEN LET “T=31 
R=XFLCIMNKETE=" 4 0-1HMKEY 


mam 


+= ”w E u 

THEN 
2 THEN 
INKEYE="C" 


— 
CN 
| 

E E o o NY 


a ns 


170 IF INKEYS="H" THEN 60 SUB 


ul 
G 


“sj Y 


F INKEY$="N" THEN  L 
0 TO 136 


-., 


a A] 
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N 


o INPUT "PONER NUEVO COLOR "; 
E 


¿10 RETUEN 

300 INFUT "PONER MUEVO CARACTER 
";H$ 

310 RETURN 
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TRAMA DE PALABRAS 


En este programa se aplica un número de palabras que el ordena- 
dor esconde en una trama cuyas dimensiones dependen de la pala- 
bra más larga de la lista. Si se encuentra demasiado difícil tratar 
de descubrir dónde está escondida cada una, el ordenador las reco- 
gerá con el color invertido. 

La palabra más larga no puede tener más de 18 letras o no cabrá 
la trama en la pantalla. Unas veinte palabras de distintas longitudes 
pueden encajarse en un período de cinco a diez minutos. Una lista 
más larga de palabras puede dar lugar a una espera muy decep- 
cionante. 

Resulta una buena idea poner las palabras en orden descendente 
de longitud ya que esto permitirá una mayor velocidad. Es fascinante 
ver el programa en acción. 


1 REM TRAMA DE PALAERAS 
£ REM FOR J ELLIOTT 
SB 


JURDER RND*ó: PAPER RND*ó: 
INK. 97 TES 
10 PRINT "SI NO DESEA WER LAS 


ESPUESTAS" 

ZU PRINT ora ci FLAashA LN 
"y FLASH 05" AHORA," 

30 PRINT "EN OTRO CASO PULSE £ 
LALQUIER TECLA.” 

30 LET RE=INKEYS: 1F R$="" THE 
WN Go TO 6 

¿0 CELS 


$3 POKE 2362241 
TO PRIMNT O AT 2,10;"TRAMÁA DE PÁL 
ABRÁS" ¡AT U, 10; OVER 
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30 INPUT “CUANTAS FALABRAS? "; 
E 
0 INPUT "PONGA LA PALABRA MÁs 

LARGA "¡ES 

100 CIM CécA,LEN E$> 

110 LET Cs$c1i=B38 

120 FOR C=2 TO A 

130 INPUT ¿"PONGA LA FALABRA ”; 
CDE 

1340 1F LEN Dé>LEN Es THEN  PRIH 
TAT 20,0; FLASH 1;"LONGITUD DE 
PALABRA NO VALIDA";: G0 TO 130 
150 LET CsiCi=D% 

190 NEXT C 

192 REM LA LINEA SIGUIENTE CUN 
TIENE 22 ESPACIOS 

200 PRINT AT 17,03" 

210 LET D=LEN B3+2 

220 FOR E=1 TO D: FOR F=i TO D 
230 (PRINT ATTE-FS Xx 

290 NEXT F: NEXT E 

250 DIM H$2D,D> 

zó0 FOR G=1 TO A 

270 LET Ié=C$0) 

230 PFRINT AT 179,018 

310 LET x=INT ¿PeHDe*bó+i: LET Y= 
INT ¿RHNDx*D53+1 

320 LET 2¿=INT ¿RND*353: LET L=IN 
T CRNID3> 

330 IF ¿=0 AND iW=0 THEN 0 TO 
320 

360 IF ¿=2 THEN  LET Z2=- 1 

370 IF l=2 THEN  —LET ld=-1 

3980 DIM K£LEN JI$,2> 

370 FOR L=1 TC LEN JE 

300 IF JIs$íLi=" * THEN 60 TO 96 
ú 

410 LET x=X+2: LET YT=Y/+lLi 

430 IF X<í OR X>D OR Y<i OR Y>D 
THEN 0 TO 270 
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390 1F ¿NOT Hécx,vo=" ") AND £N 
OT CH3cxX,vi=Jé£L335 THEN GO TO 
Z70 

495 LET KiL,ló=x: En REL, Z= Y 

950 PRINT AT 17%,L-13 INJERS 

TINE FI BLLO 

deb NEXT L 

970 FOR M=1 TO LEN J$ 

4980 1F J$iMi=" *" THEN 60 TG 500 

435 LET HécEKiM,10,KiM, 22 3=J81M> 

470 IF R$="N" THEN GO TO 500 

473 BEEF .01,RND*10-RND*Z0: PRI 
NT AT KiM,13,K1iM,233J$(M> 

S00 MEXT Mi NEXT (O 

3510 REM LA LINEA QUE SIGUE ES 
DE 15 ESPACIOS 

3OzZÓ PRINT AT 17,0" 


> 
o 


NEXT Pi NEXT ON 

580 PRINT AT 19,103 FLASH 1¡"AC 
ABADO" 

590 PRINT AT 20,05 FLASH 1;"PUL 
SAR CUALQUIER TECLA PARÁ LAS 

RESPUESTAS" 

600 LET L3é3=INKEYS: IF QG$="" THE 
MN 60 TO ¿00 

610 FOR N=1 TO Di FOR F=i TO D 

626 IF HEIN,Po=" * THEN GO TO 
$390 

£3O ol e N,FS INWERSE 1; IN 

K F¡Hé0N, 

¿30 MEXT al MEXT 

650 FRINT AT 17,103" 


530 FOR N=1 TO Di FOR P=1 TOD 
535 BEEP .01,PND*10—-RND*20 

590 1F NOT HécN,Po=" " THEN 60 
TO 5éS5 

5S0 LET Pé=CHR$ CINT (RND*Z4)+455 
Sé0 PRINT AT NP¡P$: 60 TO 570 
565 PRINT AT N,PjH$cN,P)o 
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ACABADO 
PULSAR CUALQUIER TECLA PARA 
LAS RESPUESTAS 


DURMSAALRR 
UPTREHACEEO 
FOSRTLUXYTS SOUÍNCL y 
» FOTRENAALAS 
JETDEKEUIPA NOSno CELA 
A In 70D ECO Ts 
AFRETNIT ANONENCUPJE 
O RE 
LOS NEA 
CIS PICU 
la 
ACABADO 


PULSAR_ CUALQUIER TELLA PARA 
LAS RESPUESTAS 


PAPEL PINTADO 


Este programa, escrito por Mark Charlton, coge un nombre (o 
cualquier cadena alfanumérica de hasta 16 letras) y produce un 
modelo coloreado de papel pintado. 


10 REM PAPEL PINTADO 
20 REM POR M CHARLTON 


30 INPUT "|PONGA SU NOMBRE "¡As 
40 LET A$=A$+" " 

45 IF LEN A$<1ó6 THEN GO TO 40 
47 LET A$=A4$( TO 16> 

48 LET B$=4A$ 

50 BORDER ?: PAPER 7: CLS 

0 FOR H=1 TO 16 

100 FOR Á=-14 TO 16 

145 IF A=0 THEN (GO TO 160 

150 PRINT — INK CH/3)¡ASCABS A); 
160 NEXT A 

180 LET A$=A4$(2 TO >+A$L1> 

120 NEXT H 

1975 POKE 23692,-1 
200 G0 TO 90 
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ANAGRAMAS 


“Anagramas”, por Ken Mahogany, muestra la flexibilidad para el 
manejo de cadenas alfanuméricas del Spectrum. Cuando se ejecuta el 
programa, se pone una palabra (como un nombre de pila) y el 
ordenador producirá toda combinación concebible de letras en tal 
nombre. La muestra ejecutada presenta algunos anagramas del nom- 


bre del programador. 
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10 
20 


30 


REM ANAGRAMAS 
REM POR[OIK MAHOGANY 


INPUT — INK 2;"PONGA SU NOMB 
LINE A$ 

POKE 23692,-1 

LET N=LEN ÁA$: DIM A(N> 

FOR X=1 TO 7? 

LET AC12>=INT (RINDEN) +1 

FOR 2=2 TON 

LET Ac23=INT (RINDEN) +1 

FOR J=1 TO Z-1 

IF ALJ)3=ACZ)> THEN GO TO 70 


Il NEXT J: NEXT :Z 


LET B$="" 

FOR B=1 TON 

LET BS=B$+A$(A(B)) 

NEXT B 

PRINT TAB 4; PAPER X; INK 9 


NEXT X 
GO TO 45 


MYANHOGA YANDAHGM GiiY DAMA 
AAYNGMHO YMHAGAÁNO OMYANGHA 
ARGNMHY O DAMGYANH OHGÁMNYA 
HNYOGMAA AMGYHNADO YGNADMAH 
NYOHAMAG AHOMAGNY HMNOAYAG 


PILOTO DE COMBATE 


Usted es el piloto de un reactor de combate. Hay que centrar 
en su visor la nave extraterrestre por medio de las teclas *'5”, “6”, 
*]” y “8” que producen movimientos según sus flechas. Se hace 
fuego pulsando la **F”. La nave espacial no se está quieta esperando 
a que la destruya. Hay que anticipar sus reacciones defensivas a 
base de movimientos evasivos aleatorios. Puesto que no puede 
controlarse más que la propia nave, la extraterrestre parecerá mo- 
verse en sentido contrario al correspondiente a la tecla pulsada. 

El juego, tal como se presenta, está a nivel de principiante. 
La velocidad se incrementa si se quita la línea 150, el tiempo de 
presentación. El programa “Piloto de Combate” (Fighter) fue escri- 
to por Paul Toland. 


i REM EJECUTE LAS LIMEAS 2-4 
ANTES DE APLICAR EL RESTO DEL 
PROGRAMA 

FOR T=C0 TO 7: READ A 

PUKE USER *"A"+T,Ar: NEXT T 

DATA 24,60,126,255,126,70,1 

y 

LET T=0 ; 
ZO LET x=IMT (RND*32)23: LET Y=I 

HT (RND*ZZ 

30 FEINT AT 10,19; INK 1; FLAS 


pnl 
1] 


a O 


O do 

30 1F T<* INT 2T/23%2 THEN 60 
TO 80 

50 1F X>5-1 AND X<232 AND Ya-1 A 
WD Y<2Z THEN. PRINT AT Y,x3" " 
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120 


60 LET Y=Y+INT (RND*3>-1 
70 LET X=X+INT (RND*3)>-1 
80 LET A$=INKEYS$ 
85 IF X>-1 AND X<32 AND Y>-1 A 
ND Y<22 THEN PRINT AT Y,X3" " 
90 LET X=X+(A$="5")-(A$="8")>) 
100 LET Y=Y+(A$="7")-(A$="8">) 
115 REM PARA OBTENER Ak PULSE “A 
” EN MODO GRAFICO. 
120 IF X>-1 AND X<32 AND Y>-1 A 
ND Y<22 THEN PRINT AT Y,X; "4h" 
130 IF A$="F" THEN BEEP .01,0 
140 IF A$="F" AND X=15 AND Y=10 
THEN 60 TO 170 
150 LET T=T+1: PRINT AT 0,0; IN 
231 
150 GO TO 30 
170 FOR V=1 TO 10 
180 PRINT AT 10,15;"W": BEEP .0 
1,-10Y 
190 PRINT AT 10,153" ": BEEP .0 
EE 
200 BORDER RND*? 
210 NEXT Y 
220 PRINT AT 18,0; INK 2;"LO CO 
NSIGUIO EN "3T3," SEGUNDOS." 
230 PRINT * FLASH 1;"LE GUSTARI 
A PROBAR OTRA VEZ? " 
240 IF INKEY$="" THEN GO TO 24 
0 
250 IF INKEY*="S" THEN CLS : R 
UN 


ALTIBAJO 


Es un simple juego por el que el jugador predice si la carta 
siguiente será más alta o más baja que la presente. Si la predicción 
es equivocada se descuentan diez puntos de la cuenta y si es acerta- 
da se le suman diez a su puntuación. 


il REM HIGHER-LOWER (ALTIBAJOS 
2 REM POR D HARWOoD 

10 LET P=100: POKE 236%2,-1 
20 PRINT AT 21,03 INK RND*S;'"A 


30 PRINT ** INK RND*S;"LE DARE 
UN NUMERO Y USTED DEBE DECIR S 
1 EL SIGUIENTE SERÁ SUPE-RI0R O 
INFERIOR" 
90 INPUT INK 1; FLASH 1:;"PONG 
4 LA ESCALA DE VALORES PARÁ LOS 
NUMEROS "363 INK 13 FLASH 13" A 


Qu ¡8 
SO LET OxX=INT' (RNDFB+A7 
29 PRINT 7 ENK. des FLASH dos "Us 


TED TENE "SP PUNTOS” 

357 IF P=0 THEN GO TO 10 

¿14 PEINT 7 INK RHD*S;"EL NUMER 
D ES ":xX 

20 INPUT "CREE QUE EL SIGUIENT 
E NUMERO SERÁ SUPERIOR O INFE 
RICE" TNK 13 FLASH 15" :23-SUPERI 
Or 1I-INFERIOR3" ¡Ar 

S0 LET Y=INT ¿ENDEB+A> 
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+0 1F x<=Y THEN 


ITCR" 


100 1F xo=Y THEN 


10R" 


LET BE*="5LUPER 


LET Ex=* IMFER 


110 1F As="5" AND x<¿=Y OR Af="1 


"AND Ox =Y THEN 
120 PRINTO INK 
UMERO SIGUIENTE 
3 
130 PRINT  INK 
> 


140 LET P=P-10: 


9) 


150 FOR T=10 TO 


HEXT T 
150 PRINT  INK 


EL SIGUIENTE MUMERO ERA"*; 


1:5% 
170 PRINT  INK 
y 


71 CELS FUKE 
00 FOR T=1 TO 
210 FOR 6=0 TO 
220 PRINT  THK 


50 LET P=P+10: 


65 TO 150 
RINDE U"MÁL, 
ERE .—.. 


EL N 
FLASH 156 


END*S "ERA EL "; 
LET x=Y: 60 TO 


sus. BEEP” 14 TN 


RRNDES GO CORRECTO 
FLASH 


ENDS "ERÁA EL "; 


LET x=Y:* 60 TO 


5 
NDRS¡TAB 27"CON 


SUMIDAS TODOS LOS PUNTOS" 


225 BEEP 


2230 NEXT 6 


«01 ,6+T*2: 


BORDER ENDx* 


MAQUINA TRAGAPERRAS 


Este programa de Máquina “Tragaperras” cobra a 5 ptas. la 
tirada, y se pueden ganar 8 ó 15. Se empieza con 100 ptas. y su 
dinero se presenta durante todo el programa. Existe una posibilidad 
de retención por la que se pueden parar una o más de las tres piezas 
giratorias de la máquina. El programa fue escrito por Daniel King. 


1 LET Tse="NNN": DIM A$(3)3: LE 
T Bs="0xWw TW": LET P=100 


2 PAPER 7: BORDER 7: INK 9: C 
LS 

10 PRINT AT 3,12; PAPER 1; INK 
9; "TRAGAPERRAS" ¡AT 5,14; INK 2; 
"DI ¡AT 6,14; INK 2;"WE ME Ml 
SE 

20 PRINT AT 6,14; INK 2;'WE WM 
"¡AT 7,14; "MI: ¡AT 3,143" 
CRE 


30 PRINT “” FLASH 13 INK 13"PU 
LSE R PARA UNA TIRADA. CUESTA 5 
PTS.” 

40 PRINT ““"DOS CUESTAN 8 PTS. 
. «TRES 15 PTS." 

45 IF INKEYS<>"R" THEN GO TO 
45 

50 LET P=P-5 

55 PRINT AT 16,0; INK RND*S;"D 
INERO: "¿P3"o " 

80 IF T$(1)<>"H" THEN LET A$< 
1)=BSC INT (RNDx*7>+1) 

90 IF T$(2)<>"H" THEN LET ASC 
2)=B$CINT (RND*7)3+1> 
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100 1F T$c3><>"H" THEN  LET Agí 
3)=B$( INT (RND*7)+1) 

110 FOR F=1 TO 3 

120 FOR J=1 TO 7? 

125 1F T$cF>="H" THEN GO TO 16 
0 

130 PRINT AT 4,13+2*F;B3(J) 

140 NEXT J 

150 PRINT AT 6,13+2*F;A4$1F> 

160 NEXT F 

170 IF ASC1)=A$02) AND Asc1)=A$ 
(3) THEN LET P=P+15: BEEP .5,0: 
BEEP .5,0: BEEP. .5,0: 60 TO 190 
180 IF A$C2)=4$13) OR ASC1)=ASL 
2) THEN LET P=P+8: BEEP .5,0: BE 
EEP .5,0 

185 PRINT AT 7,153 INK 2; "ME" ¡AT 
P1173 "MW" ¡AT 7,19; "8" 

190 LET Té="NNN" 

192 PRINT AT 16,0; INK RNDx*S;"D 
INERO: "¿P¿" " 

195 IF RND>.3 THEN GO TO 35 
200 PRINT  INK 1; FLASH 1;4T 7, 
1S¡"H"38T 7,173"H"¡AT 7,19;"H" 
210 INPUT  INK 1;"PULSE "; FLAS 
H 13"H"; FLASH 0;" SI DESEA RETE 
NER, EN OTRO CASO "; FLASH 1;"N" 
; FLASH 0;" "; LINE TS 

220 IF T$c1>="H" THEN PRINT AT 
7,15; PAPER 1;"H": GO TO 230 

225 PRINT AT 7,15; INK 2;"W" 
230 IF T$c23="H" THEN PRINT AT 

7,17; PAPER 1;"H": GO TO 240 
235 PRINT AT 7,17; INK 2," 

290 1F TS(3>="H" THEN PRINT AT 
7,19; PAPER 1;"H": GO TO 250 

245 PRINT AT 7,19; INK 2;"N" 
250 PAUSE 100 

260 60 TO so 


CLAVE DE COLORES 


Este programa se basa en el «Mastermind» (registrado por Invicta). 
En él se escogen por el ordenador cuatro colores en forma aleatoria 
y hay que adivinar cuáles son. Cuando se pide que se ponga su hipó- 
tesis se aplica el número que corresponde al color deseado. El 
ordenador le dice cuántos ha adivinado en posición correcta (ne- 
gros) y cuántos son igualmente correctos pero en posición errónea 
(blancos). 


No hay colores repetidos entre los cuatro seleccionados. 


2 REM ALTOR-D HARWOCD 
3 DIM Ac9): DIM Bc9) 
5 LET G=1 
¿£ LET AS=CHRS S+CHR$ E+CHR$ 8 
+CHRE S+CHRS S+CHAS S+CHE$ S+CHR 
E S+CHARE S+CHR* S+CHES 3 
7? POKE 23692,255 
10 OUER 1: PRINT AT 21,8;"MAST 
ER MIND"; 
20 PRINT Ab” " 
30 PRINT “*“"ESCOGERE 4 COLORE 
3. USTED DEBE" 
30 PRINT "ADIVINARLOS EN 20 IN 
TENTOS." 


50 PRINT "PULSE CUALQUIER TELL 
PRIMT "CONTINDAR," 
OD FSUsSE 30000 
50 FOR T=1 Tú a 
0 LET ALTI=INT (RNDEEOS 


125 


126 


93 IF ACTIAC1) AND T<>1 UR AC 
Ti=A4t2) AND T<>2 OR-ACTI=AI3) ÁN 
D T<293 OR ALTI=4c9) AND T<>9 THE 
N  G0 TO 20 

100 NEXT T 

110 CLS 

120 LET 5=0: LET F=0: INPUT £"P 
ONGÁ SU HIPOTESIS "36; " ">):¡6% 

130 LET BL12>=VAL Gé$c115: LET BL2 
=UAL $2) 

135 LET B239=VAL $035: LET Etg 
=UAL $149) 

140 PRINT * INK B6c12;"E "; INK 
BZ UM y INK BDO "; INK Ec 
¡"»; 

150 LET G=6+1 

180 FOR T=1 TO 4: FOR i=1 TO 4 

170 IF ALT>=BCL) AND T<2L THEN 
LET S=S+1 

180 NEXT Li: NEXT T 

190 FOR T=1 TO 4 
200 IF B<T>=ACT> THEN  LET R=R+ 
í 
210 NEXT T 
220 PRINT "  BNEGRO-"¡R;" BL 
ANCO-= "¡5 
230 1F F=4 THEN 60 TO 240 
290 IF G=20 THEN 60 TO 270 
250 GO TO 120 
250 CLS : PRINT AT 11,03 FLASH 
1; IMK 4;"BUEN TRABAJO. ADIVINO 
EL COLOR":+ GO TO 280 
270 PRINT AT 11,0; INK 4; "MALA 
SUERTE. HA NECESITADO MAS DE 20 
INTENTOS" 

280 PRINT AT 13,0; FLASH 13 INK 
ALIO UM "j INK ACZO MN O; INEA 
CA MESA 
290 FOR G=1 TO 20: BEEP .2,RND* 
202 NEXT 6 


JUEGO DE DAMAS 


El programa de “Las Damas”, escrito por Tim Hartnell, realiza 
un juego bastante bueno. 

Para entrar la jugada se pulsa la letra de la línea inferior que se 
corresponde con la pieza que se va a mover y el número análogo 
del lado derecho, y a continuación ENTER. Luego se hace lo mismo 
con respecto al cuadro donde se desea colocar la pieza. 

El ordenador hace sus saltos múltiples automáticamente. Cuando 
el jugador hace una captura se le pregunta si puede saltar nueva- 
mente. Si es así, se pulsa cualquier tecla y ENTER, ofreciéndose 
un nuevo movimiento. En caso negativo, solamente pulsar ENTER y 
el ordenador hará su movimiento. 

Existen tres formas de terminar el juego. Que el ordenador conce- 
da su derrota aunque haya posibilidad de movimientos, si juzga su 
posición sin esperanza; o que proclame su victoria al capturar todas 
las piezas del jugador; o bien se rinde cuando el ordenador ha per- 
dido todas sus piezas. Se comprobará que aunque la máquina 
juega bastante lentamente al principio, va cogiendo velocidad cuando 
el juego progresa. 


MI PUNT. ES M, Y LA SUYA ES Y 


ENTRE _LOS DATOS DE SU MOVIMIENTO 
COMO AS, DESPUES PULSE ENTE 
CÓNTINUACION B3 Y TER. 
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10 REM RXXEEXKHIIEL LEAR 
20 REM * DAMAS * 
30 REM POR TIM HARTNELL 
90 REM XRXAXXEXAXLELELELLAK 
50 GO SUB 9240 
$0 LET 2=24 
70 LET 0=0 
80 REM CREACION DE DAMAS DEL 
JUGADOR 
90 FOR G=82 TO 72: IF ACG)=-1 
THEN LET ÁAtG>=-2 
100 NEXT 6 
110 GO SUB 720 
120 REM SPECTRUM BUSCA LAS CAP 
TURAS 
130 IF A(Z23)=99% OR A(Z><1 THEN 
GO TO 220 
140 IF 2<28 AND A(Z>)=1 THEN LE 
T A(Z23=2 
150 LET Y=1 
160 IF AZ2+XCY)3<0 AND A(Z+2%(X 
(Y333=0 THEN LET Q=X(Y> 
170 IF A(Z23=2 AND A(Z-X(Y3><0 A 
ND AcZ2-2x*X(Y)3=0 THEN LET Q=-X( 
Y 
130 IF Q<>0 AND 2+2x*0>23 THEN 
GO TO 250 
170 LET Q=0 
200 IF Y=2 THEN (GO TO 220 
z10 LET Y=2: GO TO 160 
220 LET 2=2+1 
230 1F 2<?3 THEN GO TO 130 
290 IF 0=0 THEN GO TO 340 
250 LET A(2+Q0)=0: LET A(Z2+2%Q)>= 
A(Z2>: LET A«Z>=0 : 
260 LET 2=2+2*Q: LET COM=COM+1: 
GO SUB 720 
270 LET Q=0: LET Y=1 
280 IF ACZ+X(Y33<0 AND ACZ+2%CX 
(Y2333=0 THEN LET Q=X(Y) 


290 IF AlcZ3=2 AND AZ-X(Y3>3<0 A 
ND A(Z-2*X(Y))=0 THEN LET Q=-X( 
NA 

300 IF G<>0 AND 2+2%Q>23 THEN 
GO TO 250 

310 IF Y=1 THEN LET Y=2: GO TO 

280 

320 GO TO 480 

330 REM EL ORDENADOR BUSCA LAS 
NO-CAPTURAS 

340 LET U=0 

350 LET 2=24+INT (RND*49): LET 
U=U+1 

360 IF A(Z>=1 OR A(Z3=2 THEN 6 
O TO 380 

370 GO TO 350 

380 LET Y=1 

390 IF ALZ+X(Y))=0 AND (A(Z+2xeX 
(Y>)>-1 AND AcZ+2X*X(Y)>+1>)>-1 AND 

ACZ+2X*X(Y)-1)>-1) THEN LET Q=X 
(Y) 

395 IF A(Z+X(Y))=0 AND U>250 TH 
EN LET Q=X(Y> 

400 IF A(Z3=2 AND A(2Z-X(Y)3=0 A 
ND CACZ-2*X(Y))>-1 AND A(Z-2x*X(Y 


3+1)>-1 AND ACZ-2xX(Y)-1)>-1 OR 
U>»600) THEN LET Q=-X(Y) 

410 IF G<>»0 THEN GO TO 450 

420 IF Y=1 THEN LET Y=2: GO TO 

390 

430 IF U<1000 THEN GO TO 350 
440 PRINT  INK 2; FLASH 1;"ME R 
INDO! "+ STOP 

450 LET A(Z+Q)=A(Z): LET A(Z)=0 

470 GO SUB 720 

480 PRINT “““TAB 0; INK 2;"ENTR 
E LOS DATOS DE SU MOVIMIENTO" 
490 PRINT TAB 0; INK 2;"COMO A? 
, DESPUES PULSE ENTER," 

500 PRINT TAB 4; INK 2;"A CONTI 
NUACION B8 Y ENTER." 


129 


130 


510 BEEP .2,RNDx*10 
520 INPUT FLASH 1,"DESDE? ";¿A$ 

BEEP .2,RND*10: INPUT FLASH 1 
¡"A? "¡B8: FOR W=1 TO 2: LET 2=0 
525 PRINT AT 15,0;" 


530 IF W=1 THEN LET C$=A$ 
540 IF W=2 THEN LET C$=B$ 

550 LET Z=-24x*(C$="G9")-25*(C$= 
"ESU)-ZéR(C$="C9")-27(C$="A9")- 
30*(C$="H8">-31*(Cé="F8")-32*(C0$ 
="D8">-33x(C$="B8")-37x*(C$="G7") 
-38*(C$="E7")-39x(C$="07")-40x*(C 
$="A7")-43x*(C$="H6")-44x*(C$="F6" 
)-45%*(C$="D6")-4éx(Cé="B6")-50*( 
C$="G4") 

560 IF Z<>0 THEN GO TO 580 

570 LET 2=-51x*(C$="E4")-52*(C$= 
"C4")-52x*(C$="A4")-Séx(C$="H3")- 
57*(C$="F3")-58x(C$="D3")-59x(C$ 
="B3")-63%(C$="G2")-64x*(C$="E2") 
65: (Cé$="02")-é6x(C$="42")-69*(C 
="H1">)-70x*(C$="F1")-71x(C$="D1" 
)-72x(C$="B1") 

580 IF W=1 THEN LET D=-Z 

590 IF W=2 THEN LET E=-2 

600 NEXT W 

620 LET ACE)=ACD>) 

630 LET AXD)=0 

$50 IF ABS (D-E)>7 THEN LET AC 
D+CINT (E-D)/2))=0: LET HUM=HUM+ 
1 

$70 GO SUB 720 

680 IF ABS (D-E>>7 THEN INPUT 
; FLASH 1;"PUEDE SALTAR OTRA VEZ 
? (PULSESE CUALQUIER TECLA Y ENT 
ER EN CASO AFIRMATIVO) "¡U$: IF 
U$<>"" THEN GO TO 520 


670 IF HUM<12 AND COM<12 THEN 
GO TO 60 

700 IF HUM>11 THEN PRINT  FLAS 
H 1; BRIGHT 1; INK 2; PAPER 6;"U 
STED GANA, HUMANO! ": STOP 

710 1F COM>11 THEN PRINT  FLAS 
Hd; BRIGHT 1; INK 2; PAPER 6;"L 
E HE VENCIDO!": STOP 

740 FOR M=24 TO 72 

750 LET AiM)=145*(A(M)=1)+1497x%*( 
ACM)=2)+32*(A4(M)=0)+1449x*(A(M)=-1 
)+196x* 1 A(M)=-2)+ 99% A(M)=99) 

760 NEXT M 

770 PRINT AT 1,0; INK RND*7; PA 
PER ?9;"MI PUNT. ES "¿COM;", Y LA 
SUYA ES "¿HUM 

780 PRINT AT 3,0; 

790 LET T=-2: FOR K=0 TO 3: FOR 
J=0 TO 3 

300 PRINT -— INK 2;"W"; INK 1¿CHR 
$ (AC72-J-13xK)); 

810 NEXT J: LET T=T+1 

820 PRINT  INK 6; PAPER 2; INT < 
(IAKI)/2)4+T 

830 FOR J=0 TO 3 

840 PRINT  INK 1;CHR$ (Acé6-J-1 
3%K))5 INK 2;"MW"; 

850 NEXT J: LET T=T+1 

860 PRINT  INK 6; PAPER 2;INT € 
(J+K)/23+T 

870 NEXT K 

880 PRINT  INK 4; PAPER 2;"ABCD 
EFGH " 

890 FOR M=24 TO 72 

900 LET AM)=C(A(M)=1495)+2x*(A(M) 
=197)+0*(A4(M>=32)>-(A(M)=1449)-2x*( 
A(M)=146)+99*(A(M)=99) 

910 NEXT M 

920 RETURN 

930 REM AHHH IA IE IE IE E IE IE E E E ER E 
740 REM INICIACION DE VARIABLES 
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132 


950 DIM A(C99): DIM X(2): LET XC 
1)=-6: LET X(2)=-7 
960 FOR Z=1 TO 99: LET A(Z>=99 
970 IF 2<73 AND 2>55 AND NOT (2 
=67 OR Z2=68 OR 2=80 OR Z=61 OR 2 
=42) THEN LET A(Z>=1 
980 IF 2<54 AND 2>42 AND NOT «2 
=47 OR 2=48 OR 2=49) THEN LET A 
(Z)=0 > 
990 IF 2<41 AND 2>23 AND NOT «2 
=34 OR Z=35 OR 2=3é OR Z=28 OR Z 
=29) THEN LET A(Z)=-1 
1000 NEXT 2 
1010 LET COM=0 
1020 LET HUM=0 
1030 FOR J=0 TO 7? 
1040 READ A: READ E 
1050 READ C: READ D 
1060 POKE USR "A"+J,A 
1070 POKE USR "B"+J,B 
1080 POKE USR "C"+*J,C 
1090 POKE USR "D"+J,D 
1100 NEXT J 
1110 RETURN 
1120 DATA 0,0,0,0,24,8,84,84 
1130 DATA 60,20,124,124,126,42,1 
24,84 
1140 DATA 126,42,124,108,60,20,1 
24,84 
1150 DATA 24,8,254,170,0,0,0,0 


RENUMERAR 


El último programa es una rutina muy útil que renumera los nú- 
meros de las líneas, excepto las de «GO TO» y «GOSUB». Aplíquese 
la rutina empezando en la línea 9990. Este programa le permite re- 
coger el número de línea inicial y el tamaño del escalonamiento 
(STEP). 


7970 REM RENUMERAR 

9991 LET xX=PEEK 23633+250ó6x*XPEEK 2 
36365 

$992 INPUT "NUMERO INICIAL "¿5 
9973 INPUT "MAGNITUD DEL ESCALON 
AMIENTO "¡0D 

9974 IF PEEK £¿x+1+256*PEEK (X= 
97990 THEN STOP 

99795 POKE X, INT £¿5/256 
$76 PUKE X+1,5-206x]1 
9797 LET 5=5+D 

$98 LET X=9+X+PEEK (x+20+2Dé6xPE 
EK (X+3) 
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